diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-17 17:56:48 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-17 17:58:02 +0100 |
| commit | fa8134a3fd41552a268ed27341fede681098e2ff (patch) | |
| tree | 593d0454e28605a0b2c56641a61689d62d80ca61 /challenge-048/markus-holzer | |
| parent | 49ac62fb8c77fac685a2e1ab5d04e8dac44bf8dd (diff) | |
| download | perlweeklychallenge-club-fa8134a3fd41552a268ed27341fede681098e2ff.tar.gz perlweeklychallenge-club-fa8134a3fd41552a268ed27341fede681098e2ff.tar.bz2 perlweeklychallenge-club-fa8134a3fd41552a268ed27341fede681098e2ff.zip | |
Solutions Markus Holzer
Diffstat (limited to 'challenge-048/markus-holzer')
| -rw-r--r-- | challenge-048/markus-holzer/raku/ch-1.p6 | 9 | ||||
| -rw-r--r-- | challenge-048/markus-holzer/raku/ch-2.p6 | 7 |
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-048/markus-holzer/raku/ch-1.p6 b/challenge-048/markus-holzer/raku/ch-1.p6 new file mode 100644 index 0000000000..e9627c6844 --- /dev/null +++ b/challenge-048/markus-holzer/raku/ch-1.p6 @@ -0,0 +1,9 @@ +my @circle = (1..500); + +while @circle.elems > 1 +{ + my $offset = @circle.elems %% 2 ?? 0 !! 1; + @circle = @circle[ $offset, { $_ + 2 } ... * ]; +} + +say "Survivor: #", @circle.first; diff --git a/challenge-048/markus-holzer/raku/ch-2.p6 b/challenge-048/markus-holzer/raku/ch-2.p6 new file mode 100644 index 0000000000..6b52c7156b --- /dev/null +++ b/challenge-048/markus-holzer/raku/ch-2.p6 @@ -0,0 +1,7 @@ +my $formatter = sub { sprintf '%02d%02d%04d', .month, .day, .year given $^date }; + +.say for (2000..2099) + .grep({ + 0 < $^year.substr(2,2).flip < 12 }) + .map({ + Date.new($^year, |$year.flip.comb(2), :$formatter ) });
\ No newline at end of file |