From 88c7461ceaa741a6e9bc24a3e376c408c0e77e93 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 3 Feb 2025 07:20:25 +0000 Subject: Challenge 307 Solutions (Raku) --- challenge-307/mark-anderson/raku/ch-1.raku | 11 +++++++++++ challenge-307/mark-anderson/raku/ch-2.raku | 10 ++++++++++ 2 files changed, 21 insertions(+) create mode 100644 challenge-307/mark-anderson/raku/ch-1.raku create mode 100644 challenge-307/mark-anderson/raku/ch-2.raku 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..2bcf2cfa3a --- /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 .so }, :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(), 3; +is find-anagrams(), 2; + +sub find-anagrams(@words) +{ + + squish @words>>.comb>>.Bag +} -- cgit From 36e559436fd9e61465df9d2138c9113ae13c392f Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 3 Feb 2025 07:30:28 +0000 Subject: Challenge 307 Solutions (Raku) --- challenge-307/mark-anderson/raku/ch-1.raku | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-307/mark-anderson/raku/ch-1.raku b/challenge-307/mark-anderson/raku/ch-1.raku index 2bcf2cfa3a..aaff0c5d26 100644 --- a/challenge-307/mark-anderson/raku/ch-1.raku +++ b/challenge-307/mark-anderson/raku/ch-1.raku @@ -7,5 +7,5 @@ is-deeply check-order(3,1,3,2,3), (0,1,3); sub check-order(+@ints) { - (@ints Z== @ints.sort).grep({ not .so }, :k) + (@ints Z== @ints.sort).grep(not *, :k) } -- cgit