Merge pull request #2264 from wambash/challange-week-077

Challange week 077

1 files changed, 39 insertions, 0 deletions

diff --git a/challenge-077/wambash/raku/ch-1.raku b/challenge-077/wambash/raku/ch-1.raku
new file mode 100755
index 0000000000..6e0ff1dfdb
--- /dev/null
+++ b/challenge-077/wambash/raku/ch-1.raku
@@ -0,0 +1,39 @@
+#!/usr/bin/env raku
+
+constant @fib := 1, 2, * + * ... *;
+
+multi iter ( Capture $c ( :$sum, :@pos, :@used ) ) {
+    \( sum => $sum + @pos.head, pos => @pos.skip, used => (|@used, @pos.head) ),
+    \( |$c,                     pos => @pos.skip)
+};
+
+multi next-level ( List $a ) {
+    $a.map: |*.&iter
+}
+
+
+constant @fib-sum := (\( :0sum, pos => @fib ),), *.&next-level.cache ... *;
+
+sub fib-sum ( $sum ) {
+    my $stop-index = @fib.first: * > $sum, :k;
+
+    @fib-sum
+    andthen .[$stop-index]
+    andthen .grep: { .<sum> == $sum }
+}
+
+sub MAIN ( :$test!, :$log ) {
+    use Test;
+
+    my $wi = &iter.wrap: {
+        note .<sum>, " ", .<used>, " ", .<pos>.cache.head;
+        callsame
+    } if $log;
+
+    is-deeply fib-sum(9).map( *.<used>), ((1,3,5),(1,8)),;
+    is-deeply fib-sum(6).map( *.<used>), ((1,2,3),(1,5)),;
+
+    $wi.restore if $log;
+
+    done-testing()
+}