diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-17 19:21:05 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-17 19:21:05 +0100 |
| commit | dab3b2385af66194f59adff84e48b6b32fe36dd7 (patch) | |
| tree | a074726d1ad425f1a47f423c617bed232904488d | |
| parent | 9f2ffe38faa40c01a9b7a8238b1b27ab14a739b4 (diff) | |
| download | perlweeklychallenge-club-dab3b2385af66194f59adff84e48b6b32fe36dd7.tar.gz perlweeklychallenge-club-dab3b2385af66194f59adff84e48b6b32fe36dd7.tar.bz2 perlweeklychallenge-club-dab3b2385af66194f59adff84e48b6b32fe36dd7.zip | |
2999 not 2099
| -rw-r--r-- | challenge-048/markus-holzer/raku/ch-2.p6 | 37 |
1 files changed, 33 insertions, 4 deletions
diff --git a/challenge-048/markus-holzer/raku/ch-2.p6 b/challenge-048/markus-holzer/raku/ch-2.p6 index 79932e9cce..a13c599128 100644 --- a/challenge-048/markus-holzer/raku/ch-2.p6 +++ b/challenge-048/markus-holzer/raku/ch-2.p6 @@ -1,19 +1,48 @@ my $formatter = sub { sprintf '%02d%02d%04d', .month, .day, .year given $^date }; -.say for (2000..2099) +.say for (2000..2999) .grep({ - 0 < $^year.substr(2,2).flip < 12 }) + 0 < .substr(2,2).flip < 13 && + 0 < .substr(0,2).flip < 32 + }) .map({ - Date.new($^year, |$year.flip.comb(2), :$formatter ) }); + Date.new($_, |.flip.comb(2), :$formatter ) }); +# 36 solutions in total # 10022001 # 01022010 # 11022011 # 02022020 +# 12022021 # 03022030 # 04022040 # 05022050 # 06022060 # 07022070 # 08022080 -# 09022090
\ No newline at end of file +# 09022090 +# 10122101 +# 01122110 +# 11122111 +# 02122120 +# 12122121 +# 03122130 +# 04122140 +# 05122150 +# 06122160 +# 07122170 +# 08122180 +# 09122190 +# 10222201 +# 01222210 +# 11222211 +# 02222220 +# 12222221 +# 03222230 +# 04222240 +# 05222250 +# 06222260 +# 07222270 +# 08222280 +# 09222290 + |