diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-07-16 09:34:36 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-16 09:34:36 +0100 |
| commit | 566292b457beac818bdcee4059791e1b63aa0588 (patch) | |
| tree | 810b6ffd35ed7e624394ea24fa6bbfe3e28820e9 | |
| parent | ca383a3a6deb0bf4f9008359de189661b0e2affa (diff) | |
| parent | 794bdef46dc601c8bc500ebe59c72b1ae7a123f0 (diff) | |
| download | perlweeklychallenge-club-566292b457beac818bdcee4059791e1b63aa0588.tar.gz perlweeklychallenge-club-566292b457beac818bdcee4059791e1b63aa0588.tar.bz2 perlweeklychallenge-club-566292b457beac818bdcee4059791e1b63aa0588.zip | |
Merge pull request #12360 from jaldhar/challenge-330
Challenge 330 by Jaldhar H. Vyas.
| -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' "$@" |