diff options
| -rw-r--r-- | challenge-013/ozzy/perl6/ch-2.p6 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/challenge-013/ozzy/perl6/ch-2.p6 b/challenge-013/ozzy/perl6/ch-2.p6 new file mode 100644 index 0000000000..33b2c6f5e1 --- /dev/null +++ b/challenge-013/ozzy/perl6/ch-2.p6 @@ -0,0 +1,14 @@ +#!/usr/bin/env perl6 +# Print the Hofstadter male and female sequences +# using mutually recursive functions. + +sub M (Int $n) { + return $n == 0 ?? 0 !! $n - F(M($n-1)); +} + +sub F (Int $n) { + return $n == 0 ?? 1 !! $n - M(F($n-1)); +} + +say "Male sequence: ", (0..10).map(&M); +say "Female sequence: ", (0..10).map(&F); |