diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-10-01 09:45:18 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-01 09:45:18 +0100 |
| commit | 3979eef3fc818b25780dbdf81ec116fd849725ab (patch) | |
| tree | ab3444e33379013556633adc4de3e4ab4975af97 | |
| parent | e6ac460e0e6a3ca241e02cd9eab4fbaa7ca0466b (diff) | |
| parent | 3da1eebe90b0c404b0b78a1b68f0f13a1a052b24 (diff) | |
| download | perlweeklychallenge-club-3979eef3fc818b25780dbdf81ec116fd849725ab.tar.gz perlweeklychallenge-club-3979eef3fc818b25780dbdf81ec116fd849725ab.tar.bz2 perlweeklychallenge-club-3979eef3fc818b25780dbdf81ec116fd849725ab.zip | |
Merge pull request #12770 from jaldhar/challenge-341
Challenge 341 by Jaldhar H. Vyas.
| -rw-r--r-- | challenge-341/jaldhar-h-vyas/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-341/jaldhar-h-vyas/perl/ch-1.pl | 8 | ||||
| -rwxr-xr-x | challenge-341/jaldhar-h-vyas/perl/ch-2.pl | 8 | ||||
| -rwxr-xr-x | challenge-341/jaldhar-h-vyas/raku/ch-1.sh | 3 | ||||
| -rwxr-xr-x | challenge-341/jaldhar-h-vyas/raku/ch-2.sh | 3 |
5 files changed, 23 insertions, 0 deletions
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 |