From c9435b673c393718db79398e20a0a084d99c422d Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sun, 24 Jan 2021 01:29:07 -0500 Subject: solutions for challenge 096 --- challenge-096/adam-russell/blog.txt | 1 + challenge-096/adam-russell/blog1.txt | 0 challenge-096/adam-russell/perl/ch-1.pl | 2 +- challenge-096/adam-russell/perl/ch-2.pl | 3 +++ 4 files changed, 5 insertions(+), 1 deletion(-) delete mode 100644 challenge-096/adam-russell/blog1.txt diff --git a/challenge-096/adam-russell/blog.txt b/challenge-096/adam-russell/blog.txt index e69de29bb2..a2d5c8a65b 100644 --- a/challenge-096/adam-russell/blog.txt +++ b/challenge-096/adam-russell/blog.txt @@ -0,0 +1 @@ +http://www.rabbitfarm.com/cgi-bin/blosxom/perl/2021/01/24 diff --git a/challenge-096/adam-russell/blog1.txt b/challenge-096/adam-russell/blog1.txt deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/challenge-096/adam-russell/perl/ch-1.pl b/challenge-096/adam-russell/perl/ch-1.pl index a89690ca4f..e1d4c4bdf0 100644 --- a/challenge-096/adam-russell/perl/ch-1.pl +++ b/challenge-096/adam-russell/perl/ch-1.pl @@ -10,7 +10,7 @@ sub reverse_words{ if(@{$words}){ my $word = $words->[0]; my $a = reverse_words([@{$words}[1 .. (@{$words} - 1)]]); - push @{$a}, $word; + $a->[@{$a}] = $word; return $a; } return []; diff --git a/challenge-096/adam-russell/perl/ch-2.pl b/challenge-096/adam-russell/perl/ch-2.pl index 6b8172ea02..9cd50fe006 100644 --- a/challenge-096/adam-russell/perl/ch-2.pl +++ b/challenge-096/adam-russell/perl/ch-2.pl @@ -6,6 +6,9 @@ use warnings; # required to convert $S1 into $S2. The operations # can be insert, remove or replace a character. ## +use Memoize; +memoize("edit_distance"); + sub edit_distance{ my($s, $t) = @_; if(length($s) == 0){ -- cgit