Merge pull request #10085 from andemark/challenge-269

Challenge 269 Solutions (Raku)

2 files changed, 53 insertions, 0 deletions

diff --git a/challenge-269/mark-anderson/raku/ch-1.raku b/challenge-269/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..4bf4381d80
--- /dev/null
+++ b/challenge-269/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+ok  bitwise-or(1,2,3,4,5);
+ok  bitwise-or(2,3,8,16);
+nok bitwise-or(1,2,5,7,9);
+
+sub bitwise-or(*@ints)
+{
+    @ints ~~ m:2nd/ << (<.digit>+) >> <?{ $0 %% 2 }> /
+}
diff --git a/challenge-269/mark-anderson/raku/ch-2.raku b/challenge-269/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..10ba8b8f39
--- /dev/null
+++ b/challenge-269/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,42 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply distribute-elements(2,1,3,4,5), [2,3,4,5,1];
+is-deeply distribute-elements(3,2,4),     [3,4,2];
+is-deeply distribute-elements(5,4,3,8),   [5,3,4,8];
+
+# I was going to try something like this
+#
+#    while @ints
+#    {
+#        my $k = @ints.first(* < @arr2.tail, :k) // @ints.end;
+#        @arr1.append: @ints.splice(0, $k+1);
+#        :(@arr1, @arr2) := (@arr2, @arr1)
+#    }
+#
+# but for some reason I get an error swapping inside the while loop.
+# Swapping the arrays works outside of the loop. 
+# https://rakudoweekly.blog/2022/06/20/2022-25-we-will-raku/      
+
+sub distribute-elements(*@ints)
+{
+    my @arr1 = @ints.shift;
+    my @arr2 = @ints.shift;
+
+    while @ints
+    {
+        if @arr1.tail > @arr2.tail
+        {
+            my $k = @ints.first(* < @arr2.tail, :k) // @ints.end;
+            @arr1.append: @ints.splice(0, $k+1)
+        }
+
+        else
+        {
+            my $k = @ints.first(* < @arr1.tail, :k) // @ints.end;
+            @arr2.append: @ints.splice(0, $k+1)
+        }
+    }   
+
+    @arr1.append: @arr2
+}