From 5a0cd8b82adc82d7ea5c0c147772b7324986e115 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 13 Sep 2020 09:15:14 +0200
Subject: solution week 077-1

---
 challenge-077/wambash/raku/ch-1.raku | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/challenge-077/wambash/raku/ch-1.raku b/challenge-077/wambash/raku/ch-1.raku
index 0d3b0934b6..49444f5912 100755
--- a/challenge-077/wambash/raku/ch-1.raku
+++ b/challenge-077/wambash/raku/ch-1.raku
@@ -1,19 +1,20 @@
 #!/usr/bin/env raku
 
-constant @fib := 1,2 , * + * ... *;
+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)
+    \( |$c,                     pos => @pos.skip)
 };
 
-multi iter ( Seq(Any) $a  ) {
+multi next-level ( List $a ) {
     $a.map: |*.&iter
 }
 
 
+constant @fib-sum := (\( :0sum, pos => @fib ),), *.&next-level.cache ... *;
+
 sub fib-sum ( $sum ) {
-    state @fib-sum = \( :0sum, pos => @fib ),  *.&iter.cache ... *;
     my $stop-index = @fib.first: * > $sum, :k;
 
     @fib-sum
@@ -25,7 +26,7 @@ sub MAIN ( :$test!, :$log ) {
     use Test;
 
     my $wi = &iter.wrap: {
-        say .<sum>," ",.<used>, " ",.<pos>.cache.head when Capture;
+        say .<sum>, " ", .<used>, " ", .<pos>.cache.head;
         callsame
     } if $log;
 
-- 
cgit