From 516b680da055d314eab597c685c18a3377246c48 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sat, 26 Feb 2022 11:46:46 +0100
Subject: solutions week 153

---
 challenge-153/wambash/raku/ch-1.raku | 14 ++++++++++++++
 challenge-153/wambash/raku/ch-2.raku | 18 ++++++++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 challenge-153/wambash/raku/ch-1.raku
 create mode 100644 challenge-153/wambash/raku/ch-2.raku

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
+}
-- 
cgit