Merge pull request #10066 from ash/master

Task 1 Week 268 in Raku by ash

2 files changed, 56 insertions, 0 deletions

diff --git a/challenge-268/ash/raku/ch-1.raku b/challenge-268/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..fc15c4c774
--- /dev/null
+++ b/challenge-268/ash/raku/ch-1.raku
@@ -0,0 +1,29 @@
+# Task 1 of The Weekly Challenge 268
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-268/#TASK1
+
+# Test run:
+# $ raku ch-1.raku
+# 2
+# 3
+# 3
+# No such number
+
+my @tests =
+    ([3, 7, 5], [9, 5, 7]),
+    ([1, 2, 1], [5, 4, 4]),
+    ([2], [5]),
+    
+    ([3, 7, 5], [9, 5, 17]);
+
+for @tests -> (@a is copy, @b is copy) {
+    @a .= sort;
+    @b .= sort;
+
+    my $diff = @b[0] - @a[0];
+    if @a >>+>> $diff eqv @b {
+        say $diff;
+    }
+    else {
+        say "No such number";
+    }
+}
diff --git a/challenge-268/ash/raku/ch-2.raku b/challenge-268/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..e830677306
--- /dev/null
+++ b/challenge-268/ash/raku/ch-2.raku
@@ -0,0 +1,27 @@
+# Task 2 of The Weekly Challenge 268
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-268/#TASK2
+
+# Test run:
+# $ raku ch-2.raku
+# [3 2 5 4]
+# [1 1 4 3 6 4 9 6]
+# [2 1 3 2]
+
+my @tests =
+    (2, 5, 3, 4),
+    (9, 4, 1, 3, 6, 4, 6, 1),
+    (1, 2, 2, 3);
+
+for @tests -> @test {
+    my @out;
+    for @test.sort -> $a, $b {
+        if $a > $b {
+            @out.push($a, $b);
+        }
+        else {
+            @out.push($b, $a);
+        }
+    }
+
+    say @out;
+}