diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-06-23 00:42:27 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-06-23 00:42:27 +0100 |
| commit | cf1f0bb01a59c140c318f19a8191d107a2c0d025 (patch) | |
| tree | 5ce4b9b63ea74ea00bf3f8486a8b7ab6f6c158d4 | |
| parent | 005671c96b9b4b8e74253b4e508b018bf02278d5 (diff) | |
| parent | f6aac9cf047195110786fdc55567191acd624cf9 (diff) | |
| download | perlweeklychallenge-club-cf1f0bb01a59c140c318f19a8191d107a2c0d025.tar.gz perlweeklychallenge-club-cf1f0bb01a59c140c318f19a8191d107a2c0d025.tar.bz2 perlweeklychallenge-club-cf1f0bb01a59c140c318f19a8191d107a2c0d025.zip | |
Merge pull request #12219 from mauke/challenge-326
add perl solutions for 326
| -rw-r--r-- | challenge-326/mauke/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-326/mauke/perl/ch-2.pl | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/challenge-326/mauke/perl/ch-1.pl b/challenge-326/mauke/perl/ch-1.pl new file mode 100644 index 0000000000..47c8a915fd --- /dev/null +++ b/challenge-326/mauke/perl/ch-1.pl @@ -0,0 +1,4 @@ +use v5.36; +use Time::Piece (); + +say Time::Piece->strptime($ARGV[0] // die("Usage: $0 DATE\n"), '%Y-%m-%d')->yday + 1; diff --git a/challenge-326/mauke/perl/ch-2.pl b/challenge-326/mauke/perl/ch-2.pl new file mode 100644 index 0000000000..26e9be8368 --- /dev/null +++ b/challenge-326/mauke/perl/ch-2.pl @@ -0,0 +1,4 @@ +use v5.36; +use List::Util qw(pairmap); + +say join " ", pairmap { ($b) x $a } @ARGV; |