Merge pull request #10082 from jaldhar/challenge-268

Challenge 268 by Jaldhar H. Vyas.

5 files changed, 56 insertions, 0 deletions

diff --git a/challenge-268/jaldhar-h-vyas/blog.txt b/challenge-268/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..4c61d5d6f2
--- /dev/null
+++ b/challenge-268/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/05/perl_weekly_challenge_week_268.html
diff --git a/challenge-268/jaldhar-h-vyas/perl/ch-1.pl b/challenge-268/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..1cf436c46f
--- /dev/null
+++ b/challenge-268/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use v5.38;
+
+
+my @x = sort { $a <=> $b } split /\s+/, $ARGV[0];
+my @y = sort { $a <=> $b } split /\s+/, $ARGV[1];
+my @diff;
+
+for my $i (0 .. scalar @x - 1) {
+    push @diff, $x[$i] - $y[$i];
+}
+
+for my $i (1 .. scalar @diff - 1) {
+    if ($diff[$i] != $diff[0]) {
+        say "no magic number";
+        exit(0);
+    }
+}
+
+say abs $diff[0];
diff --git a/challenge-268/jaldhar-h-vyas/perl/ch-2.pl b/challenge-268/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..2ba8077284
--- /dev/null
+++ b/challenge-268/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+use v5.38;
+
+my @ints = sort { $a <=> $b } @ARGV;
+my @output;
+
+while (@ints) {
+    push @output, reverse splice @ints, 0, 2;
+}
+
+say q{(}, (join q{, }, @output), q{)};
diff --git a/challenge-268/jaldhar-h-vyas/raku/ch-1.raku b/challenge-268/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..559d7d7550
--- /dev/null
+++ b/challenge-268/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    $x,
+    $y
+) {
+    my @diff = $x.words.sort Z- $y.words.sort;
+
+    say @diff.all ?? @diff[0].abs !! "no magic number";
+}
\ No newline at end of file
diff --git a/challenge-268/jaldhar-h-vyas/raku/ch-2.raku b/challenge-268/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..f388bd8b99
--- /dev/null
+++ b/challenge-268/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@ints
+) {
+    @ints = @ints.sort;
+    my @output;
+
+    while (@ints) {
+        @output.push(| @ints.splice(0, 2).reverse);
+    }
+
+    say q{(}, @output.join(q{, }), q{)};
+}
\ No newline at end of file