diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-04-07 16:12:36 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-07 16:12:36 +0100 |
| commit | 5180edf73b43116edcd5d85811a0d726cf7a4403 (patch) | |
| tree | e8cd269aee40dc8846339917d61c5b997d2f3f0d | |
| parent | d76c0aa4d695604100548b029060c0e5907b75ed (diff) | |
| parent | a2466b7ca7a29718db46c8b8d2af45ff62dcf958 (diff) | |
| download | perlweeklychallenge-club-5180edf73b43116edcd5d85811a0d726cf7a4403.tar.gz perlweeklychallenge-club-5180edf73b43116edcd5d85811a0d726cf7a4403.tar.bz2 perlweeklychallenge-club-5180edf73b43116edcd5d85811a0d726cf7a4403.zip | |
Merge pull request #1537 from andemark/branch-for-challenge-055
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{}); } } |