Self descriptive numbers

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-043/simon-proctor/raku/ch-2.p6 b/challenge-043/simon-proctor/raku/ch-2.p6
new file mode 100644
index 0000000000..3cd3eb2a05
--- /dev/null
+++ b/challenge-043/simon-proctor/raku/ch-2.p6
@@ -0,0 +1,20 @@
+#!/usr/bin/enb perl6
+
+use v6;
+
+#| Calculate the self desscriptive number for the given base
+sub MAIN( UInt \base where 1 <= * <= 36 ) {
+    say calculate( base );
+}
+
+# No number available for these bases
+multi calculate( \base where * ~~ 1|2|3|6 ) {
+    "No self descriptive number for base {base}";
+}
+
+multi calculate(4) { "Either 1210 or 2020" }
+multi calculate(5) { "21200" }
+
+multi calculate(\base) {
+    ((base-4)*(base**(base-1))+(2*(base**(base-2)))+(base**(base-3))+(base**3)).base(base);
+}