Merge pull request #10332 from jaldhar/challenge-275

Challenge 275 by Jaldhar H. Vyas.

5 files changed, 59 insertions, 0 deletions

diff --git a/challenge-275/jaldhar-h-vyas/blog.txt b/challenge-275/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..9b533cbb63
--- /dev/null
+++ b/challenge-275/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/06/perl_weekly_challenge_week_275.html
diff --git a/challenge-275/jaldhar-h-vyas/perl/ch-1.pl b/challenge-275/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..77b6751d74
--- /dev/null
+++ b/challenge-275/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use v5.38;
+
+my $str = shift;
+my @keys = @ARGV;
+
+
+my $keys = join q{}, ('[', @keys, ']');
+say scalar grep { $_ !~ /$keys/i } split /\s+/, $str;
diff --git a/challenge-275/jaldhar-h-vyas/perl/ch-2.pl b/challenge-275/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..0f3f3919e8
--- /dev/null
+++ b/challenge-275/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+use v5.38;
+
+my $str = shift;
+
+my @input = split //, $str;
+my $output;
+my $current;
+
+for my $c (@input) {
+    if ($c =~ /\d/) {
+        $output .= chr(ord($current) + $c);
+    } else {
+        $current = $c;
+        $output .= $c;
+    }
+}
+
+say $output;
diff --git a/challenge-275/jaldhar-h-vyas/raku/ch-1.raku b/challenge-275/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..31e492d15e
--- /dev/null
+++ b/challenge-275/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    Str $str,
+    *@keys
+ ) {
+
+    my $keys = [~] '<[', @keys, ']>';
+    $str.words.grep({ $_ !~~ m:i/ <$keys> / }).elems.say;
+}
\ No newline at end of file
diff --git a/challenge-275/jaldhar-h-vyas/raku/ch-2.raku b/challenge-275/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..3e37e00290
--- /dev/null
+++ b/challenge-275/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    Str $str,
+ ) {
+    my @input = $str.comb;
+    my $output;
+    my $current;
+
+    for @input -> $c {
+        if $c ~~ /\d/ {
+            $output ~= chr($current.ord + $c);
+        } else {
+            $current = $c;
+            $output ~= $c;
+        }
+    }
+
+    say $output;
+}
\ No newline at end of file