diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-07-24 04:25:17 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-07-24 04:25:17 -0600 |
| commit | ca649ced4c0189d05327ac39c0cf81bee6e4db1c (patch) | |
| tree | 3064c948f001419cc9e97d36b015c04878bb388e /challenge-070 | |
| parent | 1fac03c428eab5649c00beb9e34900b95231756f (diff) | |
| download | perlweeklychallenge-club-ca649ced4c0189d05327ac39c0cf81bee6e4db1c.tar.gz perlweeklychallenge-club-ca649ced4c0189d05327ac39c0cf81bee6e4db1c.tar.bz2 perlweeklychallenge-club-ca649ced4c0189d05327ac39c0cf81bee6e4db1c.zip | |
Challenge 70 Solutions
Diffstat (limited to 'challenge-070')
| -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 |