diff options
| author | Adam Russell <ac.russell@live.com> | 2021-01-24 01:29:07 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2021-01-24 01:29:07 -0500 |
| commit | c9435b673c393718db79398e20a0a084d99c422d (patch) | |
| tree | 01fbb1645eb8d44945cb9006b2464a19bc477d54 | |
| parent | b7f871dd00678751b00bfddf71ab2eb05dd81a2c (diff) | |
| download | perlweeklychallenge-club-c9435b673c393718db79398e20a0a084d99c422d.tar.gz perlweeklychallenge-club-c9435b673c393718db79398e20a0a084d99c422d.tar.bz2 perlweeklychallenge-club-c9435b673c393718db79398e20a0a084d99c422d.zip | |
solutions for challenge 096
| -rw-r--r-- | challenge-096/adam-russell/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-096/adam-russell/blog1.txt | 0 | ||||
| -rw-r--r-- | challenge-096/adam-russell/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-096/adam-russell/perl/ch-2.pl | 3 |
4 files changed, 5 insertions, 1 deletions
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 --- a/challenge-096/adam-russell/blog1.txt +++ /dev/null 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){ |