diff options
| -rw-r--r-- | challenge-330/jaldhar-h-vyas/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-330/jaldhar-h-vyas/perl/ch-1.sh | 3 | ||||
| -rwxr-xr-x | challenge-330/jaldhar-h-vyas/perl/ch-2.sh | 3 | ||||
| -rwxr-xr-x | challenge-330/jaldhar-h-vyas/raku/ch-1.sh | 3 | ||||
| -rwxr-xr-x | challenge-330/jaldhar-h-vyas/raku/ch-2.sh | 3 |
5 files changed, 13 insertions, 0 deletions
diff --git a/challenge-330/jaldhar-h-vyas/blog.txt b/challenge-330/jaldhar-h-vyas/blog.txt new file mode 100644 index 0000000000..95291f344a --- /dev/null +++ b/challenge-330/jaldhar-h-vyas/blog.txt @@ -0,0 +1 @@ +https://www.braincells.com/perl/2025/07/perl_weekly_challenge_week_330.html diff --git a/challenge-330/jaldhar-h-vyas/perl/ch-1.sh b/challenge-330/jaldhar-h-vyas/perl/ch-1.sh new file mode 100755 index 0000000000..e3c8278fa6 --- /dev/null +++ b/challenge-330/jaldhar-h-vyas/perl/ch-1.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +perl -E '$_=shift;while(s/\D\d//){}say' "$@" diff --git a/challenge-330/jaldhar-h-vyas/perl/ch-2.sh b/challenge-330/jaldhar-h-vyas/perl/ch-2.sh new file mode 100755 index 0000000000..1fd149a5a3 --- /dev/null +++ b/challenge-330/jaldhar-h-vyas/perl/ch-2.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +perl -E 'say join q{ },map{$_=lc;length>2&&s/^(.)/\u$1/;$_}(split/\W+/,shift)' "$@" diff --git a/challenge-330/jaldhar-h-vyas/raku/ch-1.sh b/challenge-330/jaldhar-h-vyas/raku/ch-1.sh new file mode 100755 index 0000000000..45fe99178f --- /dev/null +++ b/challenge-330/jaldhar-h-vyas/raku/ch-1.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +raku -e '$_=@*ARGS[0];while s/\D\d// {};.say' "$@" diff --git a/challenge-330/jaldhar-h-vyas/raku/ch-2.sh b/challenge-330/jaldhar-h-vyas/raku/ch-2.sh new file mode 100755 index 0000000000..3ab1de52ab --- /dev/null +++ b/challenge-330/jaldhar-h-vyas/raku/ch-2.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +raku -e '@*ARGS[0].words.map({$_.chars <3??$_.lc!!$_.tclc }).join(q{ }).say' "$@" |