diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-05 09:50:58 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-05 09:50:58 -0600 |
| commit | 3dfcda69ead95ea9632d38b36ffb8b07be3a3654 (patch) | |
| tree | ccb3c342b63d9f599c87a4f1dd63fa9a96deb1d7 | |
| parent | 9a80c688e960425f95349086dac048adaaa892a6 (diff) | |
| download | perlweeklychallenge-club-3dfcda69ead95ea9632d38b36ffb8b07be3a3654.tar.gz perlweeklychallenge-club-3dfcda69ead95ea9632d38b36ffb8b07be3a3654.tar.bz2 perlweeklychallenge-club-3dfcda69ead95ea9632d38b36ffb8b07be3a3654.zip | |
ch-2.raku fixed
| -rw-r--r-- | challenge-128/mark-anderson/raku/ch-2.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-128/mark-anderson/raku/ch-2.raku b/challenge-128/mark-anderson/raku/ch-2.raku index 674478d75e..0cf05bb73d 100644 --- a/challenge-128/mark-anderson/raku/ch-2.raku +++ b/challenge-128/mark-anderson/raku/ch-2.raku @@ -34,7 +34,7 @@ sub minimum-platforms($arrivals, $departures) while @arrivals { - if @arrivals.head < @departures.head + if @arrivals.head <= @departures.head { @arrivals.shift; $result = max $result, ++$platforms; @@ -55,7 +55,7 @@ sub minimum-platforms($arrivals, $departures) has Str $.time; } - multi infix:« < »(dt $a, dt $b) + multi infix:<< <= >>(dt $a, dt $b) { my $r = $a.day <=> $b.day; |