Challenge 2

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-136/simon-proctor/raku/ch-2.p6 b/challenge-136/simon-proctor/raku/ch-2.p6
new file mode 100644
index 0000000000..da1b3028cb
--- /dev/null
+++ b/challenge-136/simon-proctor/raku/ch-2.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+
+my %*SUB-MAIN-OPTS = :named-anywhere;
+
+#| Given an integer N print the number of different combinations of Fibonacci numbers that sum to it.
+sub MAIN ( UInt \N,
+           Bool :v($verbose) = False #= Print the list of values
+         ) {
+    my @res = (1,1,*+*...* > N).unique.combinations.grep(
+                  -> @f { ([+] @f) == N }
+              );
+    say @res.elems;
+    say '---' if $verbose;
+    (.join(", ").say for @res) if $verbose;
+}