diff options
| -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{}); } } |