diff options
| -rw-r--r-- | challenge-320/ash/raku/ch-1.raku | 11 | ||||
| -rw-r--r-- | challenge-320/ash/raku/ch-1a.raku | 8 | ||||
| -rw-r--r-- | challenge-320/ash/raku/ch-2.raku | 8 |
3 files changed, 27 insertions, 0 deletions
diff --git a/challenge-320/ash/raku/ch-1.raku b/challenge-320/ash/raku/ch-1.raku new file mode 100644 index 0000000000..077cd1fad6 --- /dev/null +++ b/challenge-320/ash/raku/ch-1.raku @@ -0,0 +1,11 @@ +# Task 1 of the Weekly Challenge 320 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-320/#TASK1 + +my @ints = -3, -2, -1, 1, 2, 3; # 3 +# my @ints = -2, -1, 0, 0, 1; # 2 +# my @ints = 1, 2, 3, 4; # 4 + +my @pos = @ints.grep: * > 0; +my @neg = @ints.grep: * < 0; + +say max(@pos.elems, @neg.elems); diff --git a/challenge-320/ash/raku/ch-1a.raku b/challenge-320/ash/raku/ch-1a.raku new file mode 100644 index 0000000000..dd1036373c --- /dev/null +++ b/challenge-320/ash/raku/ch-1a.raku @@ -0,0 +1,8 @@ +# Task 1 of the Weekly Challenge 320 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-320/#TASK1 + +# my @ints = -3, -2, -1, 1, 2, 3; # 3 +my @ints = -2, -1, 0, 0, 1; # 2 +# my @ints = 1, 2, 3, 4; # 4 + +say @ints.grep(*).classify(* < 0)>>.elems.values.max; diff --git a/challenge-320/ash/raku/ch-2.raku b/challenge-320/ash/raku/ch-2.raku new file mode 100644 index 0000000000..d95dc5e6b0 --- /dev/null +++ b/challenge-320/ash/raku/ch-2.raku @@ -0,0 +1,8 @@ +# Task 2 of the Weekly Challenge 320 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-320/#TASK2 + +my @ints = 1, 23, 4, 5; # 18 +# my @ints = 1, 2, 3, 4, 5; # 0 +# my @ints = 1, 2, 34; # 27 + +say abs(@ints.sum - @ints.comb.sum); |