Using recursion back from 100 to 1 to get the 8 steps needed to get from 1 to 100

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-044/simon-proctor/raku/ch-2.p6 b/challenge-044/simon-proctor/raku/ch-2.p6
new file mode 100644
index 0000000000..551c8ca0aa
--- /dev/null
+++ b/challenge-044/simon-proctor/raku/ch-2.p6
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl6
+
+use v6.d;
+
+multi sub recur( Int() $v where * %% 2 ) {
+    return recur( $v / 2 ), " * 2";
+}
+
+multi sub recur( Int() $v ) {
+    return "((", recur( $v - 1 ), ") + 1)";
+}
+
+multi sub recur($ where * ~~ 1) {
+    return "1";
+}
+
+say "{recur( 100 ).flat.join('')} == 100";