Merge pull request #5707 from wambash/challenge-week-153

solutions week 153

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-153/wambash/raku/ch-1.raku b/challenge-153/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..5276d17fcd
--- /dev/null
+++ b/challenge-153/wambash/raku/ch-1.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+constant @Factorial = 1, slip [\*] 1..* ;
+constant @LeftFactorial = [\+]  @Factorial;
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is @LeftFactorial.head(10), (1, 2, 4, 10, 34, 154, 874, 5914, 46234, 409114);
+    done-testing;
+}
+
+multi MAIN ($n = 10) {
+    put @LeftFactorial.head($n);
+}
diff --git a/challenge-153/wambash/raku/ch-2.raku b/challenge-153/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..d70a7a6c5d
--- /dev/null
+++ b/challenge-153/wambash/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+constant @Factorial = 1, slip [\*] 1..* ;
+
+sub factorions ($n) {
+    @Factorial[|$n.comb].sum == $n
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is factorions(145),True;
+    is factorions(123),False;
+    done-testing;
+}
+
+multi MAIN ($n) {
+    say +factorions $n
+}