diff options
| author | Jaldhar H. Vyas <jaldhar@braincells.com> | 2025-10-01 00:15:07 -0400 |
|---|---|---|
| committer | Jaldhar H. Vyas <jaldhar@braincells.com> | 2025-10-01 01:27:16 -0400 |
| commit | 3da1eebe90b0c404b0b78a1b68f0f13a1a052b24 (patch) | |
| tree | 9271f770ffe271ce7852812c7e93364a527434b6 | |
| parent | b35e6ce2c209fad4aed4c1cb66ea0840143cbed1 (diff) | |
| download | perlweeklychallenge-club-3da1eebe90b0c404b0b78a1b68f0f13a1a052b24.tar.gz perlweeklychallenge-club-3da1eebe90b0c404b0b78a1b68f0f13a1a052b24.tar.bz2 perlweeklychallenge-club-3da1eebe90b0c404b0b78a1b68f0f13a1a052b24.zip | |
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 |