diff options
| -rw-r--r-- | challenge-327/ash/raku/ch-1.raku | 10 | ||||
| -rw-r--r-- | challenge-327/ash/raku/ch-2.raku | 12 |
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-327/ash/raku/ch-1.raku b/challenge-327/ash/raku/ch-1.raku new file mode 100644 index 0000000000..585654f380 --- /dev/null +++ b/challenge-327/ash/raku/ch-1.raku @@ -0,0 +1,10 @@ +# Task 1 of the Weekly Challenge 327 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-327/#TASK1 + +say missing-numbers(1, 2, 1, 3, 2, 5); # 4, 6 +say missing-numbers(1, 1, 1); # 2, 3 +say missing-numbers(2, 2, 1); # 3 + +sub missing-numbers(*@data) { + (1 .. @data.elems) (-) @data; +} diff --git a/challenge-327/ash/raku/ch-2.raku b/challenge-327/ash/raku/ch-2.raku new file mode 100644 index 0000000000..ffef15263e --- /dev/null +++ b/challenge-327/ash/raku/ch-2.raku @@ -0,0 +1,12 @@ +# Task 2 of the Weekly Challenge 327 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-327/#TASK2 + +say mad(4, 1, 2, 3); # ((4 3) (1 2) (2 3)) +say mad(1, 3, 7, 11, 15); # ((1 3)) +say mad(1, 5, 3, 8); # ((1 3) (5 3)) + +sub mad(*@data) { + my @pairs = @data.combinations(2); + my $min_diff = min(@pairs.map: {abs(.[0] - .[1])}); + return @pairs.grep: {abs(.[0] - .[1]) == $min_diff} +} |