aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark A <andemark@a-iot1t.uch.ad.pvt>2021-08-31 08:00:04 -0600
committerMark A <andemark@a-iot1t.uch.ad.pvt>2021-08-31 08:00:04 -0600
commitf77cb5f593125cdd2d65225bd92633b12fd621c3 (patch)
tree8c07c26f5ee1053a88fdb915f5c912bb5794cf24
parentc15b7c3c0aae51af62930deb9d1bfc2f41114d3a (diff)
downloadperlweeklychallenge-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.raku8
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--;
}
}