Challenge 50 Solutions

2 files changed, 39 insertions, 0 deletions

diff --git a/challenge-050/mark-anderson/raku/ch-1.p6 b/challenge-050/mark-anderson/raku/ch-1.p6
new file mode 100644
index 0000000000..39e7d85161
--- /dev/null
+++ b/challenge-050/mark-anderson/raku/ch-1.p6
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl6
+
+my @array = ([2,7], [3,9], [10,12], [15,19], [18,22]);
+
+my @head;
+my @tail;
+
+loop {
+    my $a1 = shift @array;
+    my $a2 = shift @array;
+
+    @head.push([$a1[0], $a2[1]]);
+
+    last unless @array.elems > 1;
+
+    $a2 = pop @array;
+    $a1 = pop @array;
+
+    @tail.push([$a1[0], $a2[1]]);
+
+    last unless @array.elems > 1;
+}
+
+say (@head, @array, @tail).flat;
diff --git a/challenge-050/mark-anderson/raku/ch-2.p6 b/challenge-050/mark-anderson/raku/ch-2.p6
new file mode 100644
index 0000000000..8c5cab0b1a
--- /dev/null
+++ b/challenge-050/mark-anderson/raku/ch-2.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl6
+
+my @L = [2, 6, 1, 3];
+
+for ^@L {
+    my $n = @L.shift;
+
+    if $n <= @L.elems {
+        if @L.grep(* > $n).elems == $n {
+            say $n;
+        }
+    }
+
+    @L.push($n);
+}