diff options
| -rwxr-xr-x | challenge-077/wambash/raku/ch-1.raku | 11 |
1 files 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; |