Merge pull request #10209 from jaldhar/challenge-272

Challenge 272 by Jaldhar H. Vyas.

5 files changed, 33 insertions, 0 deletions

diff --git a/challenge-272/jaldhar-h-vyas/blog.txt b/challenge-272/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..71371aa4bb
--- /dev/null
+++ b/challenge-272/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/06/perl_weekly_challenge_week_272.html
diff --git a/challenge-272/jaldhar-h-vyas/perl/ch-1.sh b/challenge-272/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..9ded32b637
--- /dev/null
+++ b/challenge-272/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E '$_=shift;s/\./[.]/g;say' "$@"
diff --git a/challenge-272/jaldhar-h-vyas/perl/ch-2.pl b/challenge-272/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..331c6174e8
--- /dev/null
+++ b/challenge-272/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use v5.38;
+
+my $str = shift;
+my @chars = split //, $str;
+my $score;
+
+for my $i (0 .. scalar @chars - 2) {
+    $score += abs(ord($chars[$i]) - ord($chars[$i + 1]));
+}
+
+say $score;
diff --git a/challenge-272/jaldhar-h-vyas/raku/ch-1.sh b/challenge-272/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..ea29eb6c03
--- /dev/null
+++ b/challenge-272/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e 'say @*ARGS[0].subst(".", "[.]",:g)' "$@"
diff --git a/challenge-272/jaldhar-h-vyas/raku/ch-2.raku b/challenge-272/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..16618ecccd
--- /dev/null
+++ b/challenge-272/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    $str
+) {
+    my @chars = $str.comb;
+    my $score;
+
+    for @chars.skip(1).keys -> $i {
+        $score += (@chars[$i].ord - @chars[$i + 1].ord).abs;
+    }
+
+    say $score;
+}
\ No newline at end of file