From e053e10ec575bc43a3b5dcebe3e08c25631795bf Mon Sep 17 00:00:00 2001
From: Alexander <39702500+threadless-screw@users.noreply.github.com>
Date: Wed, 19 Jun 2019 18:59:29 +0000
Subject: Create ch-2.p6

---
 challenge-013/ozzy/perl6/ch-2.p6 | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 challenge-013/ozzy/perl6/ch-2.p6

(limited to 'challenge-013')

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