diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-17 19:20:19 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-17 19:20:19 +0100 |
| commit | 9f2ffe38faa40c01a9b7a8238b1b27ab14a739b4 (patch) | |
| tree | ecc035ad45877bc8db0b5c33308e005101258fce | |
| parent | 82bd45ba30a3a0c59cba972d947f8baad7d49caf (diff) | |
| download | perlweeklychallenge-club-9f2ffe38faa40c01a9b7a8238b1b27ab14a739b4.tar.gz perlweeklychallenge-club-9f2ffe38faa40c01a9b7a8238b1b27ab14a739b4.tar.bz2 perlweeklychallenge-club-9f2ffe38faa40c01a9b7a8238b1b27ab14a739b4.zip | |
Correction
| -rw-r--r-- | challenge-048/markus-holzer/raku/ch-1.p6 | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/challenge-048/markus-holzer/raku/ch-1.p6 b/challenge-048/markus-holzer/raku/ch-1.p6 index 27637602ca..aeea4eb7e2 100644 --- a/challenge-048/markus-holzer/raku/ch-1.p6 +++ b/challenge-048/markus-holzer/raku/ch-1.p6 @@ -1,9 +1,15 @@ -my @circle = (1..500); +# perfect example of overcomplicated thinking +# the shift two, push one method is probably nicer, +# if not faster + +my @circle = 1..500; +my $offset = 0; while @circle.elems > 1 { - my $offset = @circle.elems %% 2 ?? 0 !! 1; + my $pivot-man = @circle[ *-2 ]; @circle = @circle[ $offset, { $_ + 2 } ... * ]; + $offset = @circle[ *-1 ] == $pivot-man ?? 0 !! 1; } # Survivor: No. 245 |