Challenge 282 by Jaldhar H. Vyas.

5 files changed, 40 insertions, 0 deletions

diff --git a/challenge-282/jaldhar-h-vyas/blog.txt b/challenge-282/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..ae3e7d288f
--- /dev/null
+++ b/challenge-282/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/08/perl_weekly_challenge_week_282.html
diff --git a/challenge-282/jaldhar-h-vyas/perl/ch-1.sh b/challenge-282/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..05c62ea24e
--- /dev/null
+++ b/challenge-282/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'shift=~/(((\d)\3\3)(\3*))/;say$1==$2?$2:"-1"' "$@"
diff --git a/challenge-282/jaldhar-h-vyas/perl/ch-2.pl b/challenge-282/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..be4df96953
--- /dev/null
+++ b/challenge-282/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use v5.38;
+
+my @chars = split //, lc shift;
+my $current = shift @chars;
+my $changes = 0;
+
+for my $c (@chars) {
+    if ($c ne $current) {
+        $changes++;
+        $current = $c;
+    }
+}
+
+say $changes;
diff --git a/challenge-282/jaldhar-h-vyas/raku/ch-1.sh b/challenge-282/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..d4eaae56d9
--- /dev/null
+++ b/challenge-282/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0]~~/(((\d)$0$0{}:my$n=$0)($n*))/;say $0==$0[0]??$0[0].Str!!"-1"' "$@"
\ No newline at end of file
diff --git a/challenge-282/jaldhar-h-vyas/raku/ch-2.raku b/challenge-282/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..d730a4486d
--- /dev/null
+++ b/challenge-282/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    $str
+) {
+    my @chars = $str.lc.comb;
+    my $current = @chars.shift;
+    my $changes = 0;
+
+    for @chars -> $c {
+        if $c ne $current {
+            $changes++;
+            $current = $c;
+        }
+    }
+
+    say $changes;
+}
\ No newline at end of file