Merge pull request #11517 from wambash/challenge-week-306

solutions week 306-2

1 files changed, 33 insertions, 0 deletions

diff --git a/challenge-306/wambash/raku/ch-2.raku b/challenge-306/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..5c18ab6481
--- /dev/null
+++ b/challenge-306/wambash/raku/ch-2.raku
@@ -0,0 +1,33 @@
+#!/usr/bin/env raku
+use v6e.PREVIEW;
+
+sub max-rest (+@a) {
+    my ($ind,$max) = @a.max: :kv;
+    $max, @a.skip: $ind, 1
+}
+
+sub next-element (@ints) {
+    my ($max, $rest) =  max-rest @ints;
+    my ($max2, $rest2) = max-rest $rest;
+
+    $max-$max2 || Empty, |$rest2
+}
+
+sub last-element (+ints) {
+    ints, &next-element ... *.elems ≤ 1
+    andthen .tail.head // 0
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is-deeply max-rest(1,2,3,2,1), (3,(1,2,2,1).Seq);
+    is-deeply max-rest(1,2,2,1), (2,(1,2,1).Seq);
+    is-deeply next-element((3, 8, 5, 2, 9, 2)), (1,3,5,2,2);
+    is-deeply last-element(3, 8, 5, 2, 9, 2),1;
+    is-deeply last-element(3, 2, 5),0;
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    say last-element ints
+}