Merge pull request #279 from threadless-screw/master

Create ch-2.p6

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);