diff options
Diffstat (limited to 'challenge-048')
| -rw-r--r-- | challenge-048/markus-holzer/raku/ch-1.p6 | 3 | ||||
| -rw-r--r-- | challenge-048/markus-holzer/raku/ch-2.p6 | 14 |
2 files changed, 15 insertions, 2 deletions
diff --git a/challenge-048/markus-holzer/raku/ch-1.p6 b/challenge-048/markus-holzer/raku/ch-1.p6 index e9627c6844..27637602ca 100644 --- a/challenge-048/markus-holzer/raku/ch-1.p6 +++ b/challenge-048/markus-holzer/raku/ch-1.p6 @@ -6,4 +6,5 @@ while @circle.elems > 1 @circle = @circle[ $offset, { $_ + 2 } ... * ]; } -say "Survivor: #", @circle.first; +# Survivor: No. 245 +say "Survivor: No.", @circle.first; diff --git a/challenge-048/markus-holzer/raku/ch-2.p6 b/challenge-048/markus-holzer/raku/ch-2.p6 index 6b52c7156b..79932e9cce 100644 --- a/challenge-048/markus-holzer/raku/ch-2.p6 +++ b/challenge-048/markus-holzer/raku/ch-2.p6 @@ -4,4 +4,16 @@ my $formatter = sub { sprintf '%02d%02d%04d', .month, .day, .year given $^date } .grep({ 0 < $^year.substr(2,2).flip < 12 }) .map({ - Date.new($^year, |$year.flip.comb(2), :$formatter ) });
\ No newline at end of file + Date.new($^year, |$year.flip.comb(2), :$formatter ) }); + +# 10022001 +# 01022010 +# 11022011 +# 02022020 +# 03022030 +# 04022040 +# 05022050 +# 06022060 +# 07022070 +# 08022080 +# 09022090
\ No newline at end of file |
