diff options
| -rw-r--r-- | challenge-070/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/challenge-070/mark-anderson/raku/ch-2.raku b/challenge-070/mark-anderson/raku/ch-2.raku index 97df7294d4..8e0a5c104c 100644 --- a/challenge-070/mark-anderson/raku/ch-2.raku +++ b/challenge-070/mark-anderson/raku/ch-2.raku @@ -3,16 +3,12 @@ sub MAIN(UInt $N where 2 <= $N <= 5) { my @A = [0, 1]; - loop { - state $C = 2; - + for 2..$N { my @S1 = @A.map("0" ~ *); my @S2 = @A.reverse.map("1" ~ *); @A = @S1.append(@S2); - - last if $C++ == $N; } say @A.map({ ":2<$_>".Int }).Array; #https://tinyurl.com/y3nw4q5j |