diff options
| -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], |