Merge pull request #10278 from jaldhar/challenge-273

Challenge 273 by Jaldhar H. Vyas.

5 files changed, 26 insertions, 0 deletions

diff --git a/challenge-273/jaldhar-h-vyas/blog.txt b/challenge-273/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..83aad15b65
--- /dev/null
+++ b/challenge-273/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/06/perl_weekly_challenge_week_273.html
diff --git a/challenge-273/jaldhar-h-vyas/perl/ch-1.pl b/challenge-273/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..684a5a8138
--- /dev/null
+++ b/challenge-273/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use v5.38;
+use Math::Round qw/ round /;
+
+my ($str, $chr) = @ARGV;
+
+my %freq;
+map { $freq{$_}++; } split //, $str;
+
+say exists $freq{$chr} ? round($freq{$chr} / (length $str) * 100) : 0;
diff --git a/challenge-273/jaldhar-h-vyas/perl/ch-2.sh b/challenge-273/jaldhar-h-vyas/perl/ch-2.sh
new file mode 100755
index 0000000000..5dd99be3cf
--- /dev/null
+++ b/challenge-273/jaldhar-h-vyas/perl/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E '$_=shift;say /(b)\1[^a]*/?"true":"false"' "$@"
diff --git a/challenge-273/jaldhar-h-vyas/raku/ch-1.raku b/challenge-273/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..5a3539b1db
--- /dev/null
+++ b/challenge-273/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    Str $str,
+    Str $chr
+ ) {
+    $str.comb.classify({ $_ }, into => my %freq);
+    say %freq{$chr}:exists ?? (%freq{$chr}.elems / $str.chars * 100).round !! 0;
+}
\ No newline at end of file
diff --git a/challenge-273/jaldhar-h-vyas/raku/ch-2.sh b/challenge-273/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..fb3547f00b
--- /dev/null
+++ b/challenge-273/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0].match(/(b)$0<[-a]>*/).so.say' "$@"