diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-31 08:00:04 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-31 08:00:04 -0600 |
| commit | f77cb5f593125cdd2d65225bd92633b12fd621c3 (patch) | |
| tree | 8c07c26f5ee1053a88fdb915f5c912bb5794cf24 | |
| parent | c15b7c3c0aae51af62930deb9d1bfc2f41114d3a (diff) | |
| download | perlweeklychallenge-club-f77cb5f593125cdd2d65225bd92633b12fd621c3.tar.gz perlweeklychallenge-club-f77cb5f593125cdd2d65225bd92633b12fd621c3.tar.bz2 perlweeklychallenge-club-f77cb5f593125cdd2d65225bd92633b12fd621c3.zip | |
ch-2.raku
| -rw-r--r-- | challenge-128/mark-anderson/raku/ch-2.raku | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-128/mark-anderson/raku/ch-2.raku b/challenge-128/mark-anderson/raku/ch-2.raku index 6ce7d0fe18..0b54764864 100644 --- a/challenge-128/mark-anderson/raku/ch-2.raku +++ b/challenge-128/mark-anderson/raku/ch-2.raku @@ -10,8 +10,8 @@ is minimum-platforms(<10:20 11:00 11:10 12:20 16:20 19:00>, sub minimum-platforms($arrivals, $departures) { - my @queue; my $result; + my $platforms; my @arrivals = $arrivals.sort; my @departures = $departures.sort; @@ -19,14 +19,14 @@ sub minimum-platforms($arrivals, $departures) { if @arrivals.head lt @departures.head { - @queue.push: @arrivals.shift; - $result = max($result, +@queue); + @arrivals.shift; + $result = max $result, ++$platforms; } else { @departures.shift; - @queue.shift; + $platforms--; } } |
