diff options
| -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; |