Merge pull request #9363 from jaldhar/challenge-250

Challenge 250 by Jaldhar H. Vyas.

5 files changed, 61 insertions, 0 deletions

diff --git a/challenge-250/jaldhar-h-vyas/blog.txt b/challenge-250/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..02c3ee9625
--- /dev/null
+++ b/challenge-250/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/01/perl_weekly_challenge_week_250.html
diff --git a/challenge-250/jaldhar-h-vyas/perl/ch-1.pl b/challenge-250/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..aa29c9face
--- /dev/null
+++ b/challenge-250/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my $result = -1;
+
+for my $i (0 .. scalar @ARGV - 1) {
+    if ($ARGV[$i] % 10 == $i) {
+        $result = $i;
+        last;
+    }
+}
+
+say $result;
diff --git a/challenge-250/jaldhar-h-vyas/perl/ch-2.pl b/challenge-250/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..2285f0b20e
--- /dev/null
+++ b/challenge-250/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my $maxvalue = -Inf;
+
+for my $str (@ARGV) {
+    my $value = ($str =~ /^\d+$/) ? 0 + $str : length $str;
+    if ($value > $maxvalue) {
+        $maxvalue = $value;
+    }
+}
+
+say $maxvalue;
diff --git a/challenge-250/jaldhar-h-vyas/raku/ch-1.raku b/challenge-250/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..7be408ca6b
--- /dev/null
+++ b/challenge-250/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@ints
+) {
+    my $result = -1;
+
+    for 0 .. @ints.end -> $i {
+        if @ints[$i] % 10 == $i {
+            $result = $i;
+            last;
+        }
+    }
+
+    say $result;
+}
\ No newline at end of file
diff --git a/challenge-250/jaldhar-h-vyas/raku/ch-2.raku b/challenge-250/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..a45386155d
--- /dev/null
+++ b/challenge-250/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@alphanumstr
+) {
+    my $maxvalue = -∞;
+
+    for @alphanumstr -> $str {
+        my $value = ($str ~~ /^ \d+ $/) ?? $str.base(10) !! $str.chars;
+        if $value > $maxvalue {
+            $maxvalue = $value;
+        }
+    }
+
+    say $maxvalue;
+}
\ No newline at end of file