diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-04-07 09:01:50 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-04-07 09:01:50 -0600 |
| commit | a2466b7ca7a29718db46c8b8d2af45ff62dcf958 (patch) | |
| tree | 9037b61ea569218910feef6d09d58f9a5728528d | |
| parent | 444ddf72157f648c8e6b04786e2700df6b8738b9 (diff) | |
| download | perlweeklychallenge-club-a2466b7ca7a29718db46c8b8d2af45ff62dcf958.tar.gz perlweeklychallenge-club-a2466b7ca7a29718db46c8b8d2af45ff62dcf958.tar.bz2 perlweeklychallenge-club-a2466b7ca7a29718db46c8b8d2af45ff62dcf958.zip | |
ch-2.p6 improved
| -rw-r--r-- | challenge-055/mark-anderson/raku/ch-2.p6 | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/challenge-055/mark-anderson/raku/ch-2.p6 b/challenge-055/mark-anderson/raku/ch-2.p6 index 2c74d0b8ab..0a89199d0f 100644 --- a/challenge-055/mark-anderson/raku/ch-2.p6 +++ b/challenge-055/mark-anderson/raku/ch-2.p6 @@ -1,11 +1,8 @@ use MONKEY-SEE-NO-EVAL; sub MAIN(*@array where @array ~~ /\d/) { - my @strings = @array.permutations.map(~*).unique; - - for @strings -> $string { - my $str = $string.subst(/ \s (\d) \s (\d) /, { ">= $0 <= $1" }, :g); - $str = $str.subst(/ (\d) \s (\d) $ /, { "$0 >= $1" }); - say $string if EVAL $str; + for @array.permutations.map(~*).unique { + .say if EVAL (.comb(/\d/) <<Z~>> (" >= ", " <= ")) + .join.subst(/\s.\=\s$/, q{}); } } |