Merge pull request #12214 from jaldhar/challenge-326

Challenge 326 by Jaldhar H. Vyas.

5 files changed, 33 insertions, 0 deletions

diff --git a/challenge-326/jaldhar-h-vyas/blog.txt b/challenge-326/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..b3633ed6bb
--- /dev/null
+++ b/challenge-326/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/06/perl_weekly_challenge_week_326.html
diff --git a/challenge-326/jaldhar-h-vyas/perl/ch-1.sh b/challenge-326/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..cf18f609c9
--- /dev/null
+++ b/challenge-326/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -MTime::Piece -E'say Time::Piece->strptime(shift,"%Y-%m-%d")->yday+1' "$@"
diff --git a/challenge-326/jaldhar-h-vyas/perl/ch-2.pl b/challenge-326/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..7e2afe0c3a
--- /dev/null
+++ b/challenge-326/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use 5.038;
+use warnings;
+
+my @ints = @ARGV;
+my @decompressed;
+
+while (my ($i, $j) = splice @ints, 0, 2) {
+    push @decompressed, ($j) x $i;
+}
+
+say q{(}, (join q{, }, @decompressed), q{)};
diff --git a/challenge-326/jaldhar-h-vyas/raku/ch-1.sh b/challenge-326/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..c93fd1c16a
--- /dev/null
+++ b/challenge-326/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e 'Date(@*ARGS[0]).day-of-year.say' "$@"
diff --git a/challenge-326/jaldhar-h-vyas/raku/ch-2.raku b/challenge-326/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..da78a60f08
--- /dev/null
+++ b/challenge-326/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@ints
+) {
+    my @decompressed;
+
+    while @ints.elems {
+        my ($i, $j) = @ints.splice(0, 2);
+        @decompressed.push(| ($j xx $i));
+    }
+
+    say q{(}, @decompressed.join(q{, }), q{)};
+}
\ No newline at end of file