diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-07-24 01:19:59 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-07-24 01:19:59 -0600 |
| commit | 1fac03c428eab5649c00beb9e34900b95231756f (patch) | |
| tree | 3ba429215932eac574a90da89f938d5b434a2952 | |
| parent | 7ecd63f51bd82456881905ab016848251bc8cf90 (diff) | |
| download | perlweeklychallenge-club-1fac03c428eab5649c00beb9e34900b95231756f.tar.gz perlweeklychallenge-club-1fac03c428eab5649c00beb9e34900b95231756f.tar.bz2 perlweeklychallenge-club-1fac03c428eab5649c00beb9e34900b95231756f.zip | |
removed needless bin2dec and dec2bin lines
| -rw-r--r-- | challenge-070/mark-anderson/raku/ch-2.raku | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/challenge-070/mark-anderson/raku/ch-2.raku b/challenge-070/mark-anderson/raku/ch-2.raku index 52ef77aa94..97df7294d4 100644 --- a/challenge-070/mark-anderson/raku/ch-2.raku +++ b/challenge-070/mark-anderson/raku/ch-2.raku @@ -6,16 +6,14 @@ sub MAIN(UInt $N where 2 <= $N <= 5) { loop { state $C = 2; - my @S1 = @A>>.fmt("%0" ~ $C ~ "b"); + my @S1 = @A.map("0" ~ *); - my @S2 = @A>>.fmt("%0" ~ $C - 1 ~ "b").reverse.map("1" ~ *); + my @S2 = @A.reverse.map("1" ~ *); - @S1.append(@S2); - - @A = @S1.map({ ":2<$_>".Int }); #https://tinyurl.com/y3nw4q5j + @A = @S1.append(@S2); last if $C++ == $N; } - say @A; + say @A.map({ ":2<$_>".Int }).Array; #https://tinyurl.com/y3nw4q5j } |