diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-04-06 12:48:19 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-04-06 12:48:19 -0600 |
| commit | 84093750493aa2b2d68518f43b313992196a6289 (patch) | |
| tree | 3c6d20bced2419fa93f61d81d4242ac872767bcf | |
| parent | c141a82d20d3ebf8ce3112e30ad048b7cb62f764 (diff) | |
| download | perlweeklychallenge-club-84093750493aa2b2d68518f43b313992196a6289.tar.gz perlweeklychallenge-club-84093750493aa2b2d68518f43b313992196a6289.tar.bz2 perlweeklychallenge-club-84093750493aa2b2d68518f43b313992196a6289.zip | |
Challenge 55 Solutions
| -rw-r--r-- | challenge-055/mark-anderson/raku/ch-2.p6 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-055/mark-anderson/raku/ch-2.p6 b/challenge-055/mark-anderson/raku/ch-2.p6 new file mode 100644 index 0000000000..b907a8e493 --- /dev/null +++ b/challenge-055/mark-anderson/raku/ch-2.p6 @@ -0,0 +1,11 @@ +use MONKEY-SEE-NO-EVAL; + +sub MAIN(*@array) { + 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; + } +} |