diff options
| -rw-r--r-- | challenge-343/ash/raku/ch-1.raku | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-343/ash/raku/ch-1.raku b/challenge-343/ash/raku/ch-1.raku new file mode 100644 index 0000000000..426f964643 --- /dev/null +++ b/challenge-343/ash/raku/ch-1.raku @@ -0,0 +1,12 @@ +# Task 1 of The Weekly Challenge 343 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-343/#TASK1 + +say dist [4, 2, -1, 3, -2]; # 1 +say dist [-5, 5, -3, 3, -1, 1]; # 1 +say dist [7, -3, 0, 2, -8]; # 0 +say dist [-2, -5, -1, -8]; # 1 +say dist [-2, 2, -4, 4, -1, 1]; # 1 + +sub dist(@data) { + @data>>.abs.min +} |