diff options
| -rw-r--r-- | challenge-307/mark-anderson/raku/ch-1.raku | 11 | ||||
| -rw-r--r-- | challenge-307/mark-anderson/raku/ch-2.raku | 10 |
2 files changed, 21 insertions, 0 deletions
diff --git a/challenge-307/mark-anderson/raku/ch-1.raku b/challenge-307/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..aaff0c5d26 --- /dev/null +++ b/challenge-307/mark-anderson/raku/ch-1.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use Test; + +is-deeply check-order(5,2,4,3,1), (0,2,3,4); +is-deeply check-order(1,2,1,1,3), (1,3); +is-deeply check-order(3,1,3,2,3), (0,1,3); + +sub check-order(+@ints) +{ + (@ints Z== @ints.sort).grep(not *, :k) +} diff --git a/challenge-307/mark-anderson/raku/ch-2.raku b/challenge-307/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..8ca2bae2ac --- /dev/null +++ b/challenge-307/mark-anderson/raku/ch-2.raku @@ -0,0 +1,10 @@ +#!/usr/bin/env raku +use Test; + +is find-anagrams(<acca dog god perl repl>), 3; +is find-anagrams(<abba baba aabb ab ab>), 2; + +sub find-anagrams(@words) +{ + + squish @words>>.comb>>.Bag +} |