diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-04-07 02:54:04 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-04-07 02:54:04 -0600 |
| commit | 1bae947ae2493d1c018f189ae5bd31bdc04bac72 (patch) | |
| tree | a4ee450b22c2c6abfe911f7438148070f3a5bd7b | |
| parent | 84093750493aa2b2d68518f43b313992196a6289 (diff) | |
| download | perlweeklychallenge-club-1bae947ae2493d1c018f189ae5bd31bdc04bac72.tar.gz perlweeklychallenge-club-1bae947ae2493d1c018f189ae5bd31bdc04bac72.tar.bz2 perlweeklychallenge-club-1bae947ae2493d1c018f189ae5bd31bdc04bac72.zip | |
Challenge 55 Solutions
| -rw-r--r-- | challenge-055/mark-anderson/raku/ch-1.p6 | 8 | ||||
| -rw-r--r-- | challenge-055/mark-anderson/raku/ch-2.p6 | 2 |
2 files changed, 3 insertions, 7 deletions
diff --git a/challenge-055/mark-anderson/raku/ch-1.p6 b/challenge-055/mark-anderson/raku/ch-1.p6 index e7417ec445..529572cb23 100644 --- a/challenge-055/mark-anderson/raku/ch-1.p6 +++ b/challenge-055/mark-anderson/raku/ch-1.p6 @@ -1,5 +1,3 @@ -#!/usr/bin/env raku - sub MAIN(Str $binary) { my @LR = (0 .. $binary.chars-1).combinations: 2; @@ -17,10 +15,8 @@ sub MAIN(Str $binary) { $middle = (("0b" ~ $middle).Int +^ ("0b" ~ "1" x $middle.chars).Int) .fmt("%0" ~ $middle.chars ~ "b"); - my $result = $left ~ $middle ~ $right; - %results{"($l, $r)"} = $result.comb(/1/).elems; + %results{"($l, $r)"} = ($left ~ $middle ~ $right).comb(/1/).elems; } - my $max = %results.values.max; - .say if .value == $max for %results.sort; + .say if .value == %results.values.max for %results.sort; } diff --git a/challenge-055/mark-anderson/raku/ch-2.p6 b/challenge-055/mark-anderson/raku/ch-2.p6 index b907a8e493..2c74d0b8ab 100644 --- a/challenge-055/mark-anderson/raku/ch-2.p6 +++ b/challenge-055/mark-anderson/raku/ch-2.p6 @@ -1,6 +1,6 @@ use MONKEY-SEE-NO-EVAL; -sub MAIN(*@array) { +sub MAIN(*@array where @array ~~ /\d/) { my @strings = @array.permutations.map(~*).unique; for @strings -> $string { |