diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-05-23 21:46:58 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-05-23 21:46:58 +0200 |
| commit | e3d1c6dcae1be78fc9b861fd4d8b02724d5fae61 (patch) | |
| tree | 03b9f98524ba37435960338ed033b9004959f223 /challenge-061 | |
| parent | a0af2406a9628558b51170f69698941d8fd93eae (diff) | |
| download | perlweeklychallenge-club-e3d1c6dcae1be78fc9b861fd4d8b02724d5fae61.tar.gz perlweeklychallenge-club-e3d1c6dcae1be78fc9b861fd4d8b02724d5fae61.tar.bz2 perlweeklychallenge-club-e3d1c6dcae1be78fc9b861fd4d8b02724d5fae61.zip | |
initial + final
Diffstat (limited to 'challenge-061')
| -rw-r--r-- | challenge-061/markus-holzer/raku/ch-1.raku | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-061/markus-holzer/raku/ch-1.raku b/challenge-061/markus-holzer/raku/ch-1.raku new file mode 100644 index 0000000000..643c3b4c9a --- /dev/null +++ b/challenge-061/markus-holzer/raku/ch-1.raku @@ -0,0 +1,8 @@ +sub MAIN( *@n where { .elems > 0 && .all ~~ Numeric } ) +{ + ( 2 .. @n ) + .map( -> $length { |@n.rotor( $length => - $length + 1 ) } ) + .sort( -> $sublist { - [*] |$sublist } ) + .first + .say; +}
\ No newline at end of file |