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