diff options
| author | E. Choroba <choroba@matfyz.cz> | 2019-06-22 10:22:50 +0200 |
|---|---|---|
| committer | E. Choroba <choroba@matfyz.cz> | 2019-06-22 10:22:50 +0200 |
| commit | a4b1cee38e462709e6cd93e01baca3297a2f276a (patch) | |
| tree | dce0a7c1de95eb8a09819c7089bce3278140181e | |
| parent | 02748a2ded7327eb2312cddad4870403f820e70e (diff) | |
| download | perlweeklychallenge-club-a4b1cee38e462709e6cd93e01baca3297a2f276a.tar.gz perlweeklychallenge-club-a4b1cee38e462709e6cd93e01baca3297a2f276a.tar.bz2 perlweeklychallenge-club-a4b1cee38e462709e6cd93e01baca3297a2f276a.zip | |
Add a link to choroba's blogpost
Also, adapt one of the solutions acording to the blogpost.
| -rw-r--r-- | challenge-013/e-choroba/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-013/e-choroba/perl5/ch-2.pl | 11 |
2 files changed, 4 insertions, 8 deletions
diff --git a/challenge-013/e-choroba/blog.txt b/challenge-013/e-choroba/blog.txt new file mode 100644 index 0000000000..f7912a26af --- /dev/null +++ b/challenge-013/e-choroba/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/e_choroba/2019/06/perl-weekly-challenge-013-last-fridays-and-hofstadter-female-and-male-sequences.html diff --git a/challenge-013/e-choroba/perl5/ch-2.pl b/challenge-013/e-choroba/perl5/ch-2.pl index 58c76c320d..5792d420c1 100755 --- a/challenge-013/e-choroba/perl5/ch-2.pl +++ b/challenge-013/e-choroba/perl5/ch-2.pl @@ -8,17 +8,12 @@ use Memoize; memoize('F'); memoize('M'); -fun F ($n) { - return $n ? $n - M(F($n - 1)) : 1 -} - -fun M ($n) { - return $n ? $n - F(M($n - 1)) : 0 -} +fun F ($n) { $n ? $n - M(F($n - 1)) : 1 } +fun M ($n) { $n ? $n - F(M($n - 1)) : 0 } use Test::More; -warn +(F(98))[-1]; # To see the efficiency +#warn +(F(98))[-1]; # To see the efficiency is_deeply [map F($_), 0 .. 20], |