From 7f7cf93d3e2c5acc32cf4459b77af8b82d64a615 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zpg.co.uk>
Date: Mon, 20 Jan 2020 11:56:06 +0000
Subject: Using recursion back from 100 to 1 to get the 8 steps needed to get
 from 1 to 100

---
 challenge-044/simon-proctor/raku/ch-2.p6 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 challenge-044/simon-proctor/raku/ch-2.p6

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