From 3da1eebe90b0c404b0b78a1b68f0f13a1a052b24 Mon Sep 17 00:00:00 2001 From: "Jaldhar H. Vyas" Date: Wed, 1 Oct 2025 00:15:07 -0400 Subject: Challenge 341 by Jaldhar H. Vyas. --- challenge-341/jaldhar-h-vyas/blog.txt | 1 + challenge-341/jaldhar-h-vyas/perl/ch-1.pl | 8 ++++++++ challenge-341/jaldhar-h-vyas/perl/ch-2.pl | 8 ++++++++ challenge-341/jaldhar-h-vyas/raku/ch-1.sh | 3 +++ challenge-341/jaldhar-h-vyas/raku/ch-2.sh | 3 +++ 5 files changed, 23 insertions(+) create mode 100644 challenge-341/jaldhar-h-vyas/blog.txt create mode 100755 challenge-341/jaldhar-h-vyas/perl/ch-1.pl create mode 100755 challenge-341/jaldhar-h-vyas/perl/ch-2.pl create mode 100755 challenge-341/jaldhar-h-vyas/raku/ch-1.sh create mode 100755 challenge-341/jaldhar-h-vyas/raku/ch-2.sh diff --git a/challenge-341/jaldhar-h-vyas/blog.txt b/challenge-341/jaldhar-h-vyas/blog.txt new file mode 100644 index 0000000000..5772491020 --- /dev/null +++ b/challenge-341/jaldhar-h-vyas/blog.txt @@ -0,0 +1 @@ +https://www.braincells.com/perl/2025/10/perl_weekly_challenge_week_341.html diff --git a/challenge-341/jaldhar-h-vyas/perl/ch-1.pl b/challenge-341/jaldhar-h-vyas/perl/ch-1.pl new file mode 100755 index 0000000000..0725097713 --- /dev/null +++ b/challenge-341/jaldhar-h-vyas/perl/ch-1.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl +use 5.038; +use warnings; + +my $str = shift; +my $broken = shift // q{.}; + +say scalar grep { !/[$broken]/i } split /\s+/, $str; \ No newline at end of file diff --git a/challenge-341/jaldhar-h-vyas/perl/ch-2.pl b/challenge-341/jaldhar-h-vyas/perl/ch-2.pl new file mode 100755 index 0000000000..09291f2454 --- /dev/null +++ b/challenge-341/jaldhar-h-vyas/perl/ch-2.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl +use 5.038; +use warnings; + +my ($str, $char) = @ARGV; + +$str =~ s/(^.+?$char)/reverse $1/e; +say $str; \ No newline at end of file diff --git a/challenge-341/jaldhar-h-vyas/raku/ch-1.sh b/challenge-341/jaldhar-h-vyas/raku/ch-1.sh new file mode 100755 index 0000000000..09606d6d3c --- /dev/null +++ b/challenge-341/jaldhar-h-vyas/raku/ch-1.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +raku -e '@*ARGS[0].words.grep({$_!~~m:i/@(@*ARGS[1].comb)/}).elems.say' "$@" \ No newline at end of file diff --git a/challenge-341/jaldhar-h-vyas/raku/ch-2.sh b/challenge-341/jaldhar-h-vyas/raku/ch-2.sh new file mode 100755 index 0000000000..22bfc46680 --- /dev/null +++ b/challenge-341/jaldhar-h-vyas/raku/ch-2.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +raku -e 'say S/(^.+?$(@*ARGS[1]))/$($0.flip)/ given @*ARGS[0]' "$@" \ No newline at end of file -- cgit