diff options
| author | Lukas Mai <lukasmai.403@gmail.com> | 2025-06-22 22:35:15 +0200 |
|---|---|---|
| committer | Lukas Mai <lukasmai.403@gmail.com> | 2025-06-22 22:35:15 +0200 |
| commit | f6aac9cf047195110786fdc55567191acd624cf9 (patch) | |
| tree | d2a018a3389d56e9cec22a3b7061f83dd262d564 | |
| parent | 7f9694c558d5879dccdc5ef4e0318f30fc33e508 (diff) | |
| download | perlweeklychallenge-club-f6aac9cf047195110786fdc55567191acd624cf9.tar.gz perlweeklychallenge-club-f6aac9cf047195110786fdc55567191acd624cf9.tar.bz2 perlweeklychallenge-club-f6aac9cf047195110786fdc55567191acd624cf9.zip | |
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; |