diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-12-23 10:22:07 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-12-23 10:22:07 -0700 |
| commit | 3f6e8a3cb9c5f01120ac32f120dc10f940fabb43 (patch) | |
| tree | ae72d3ffe7df8054f77525872b206e1d7e88e094 /challenge-092 | |
| parent | 81510c4f0e448fb78c8026e56d104c331f670f20 (diff) | |
| download | perlweeklychallenge-club-3f6e8a3cb9c5f01120ac32f120dc10f940fabb43.tar.gz perlweeklychallenge-club-3f6e8a3cb9c5f01120ac32f120dc10f940fabb43.tar.bz2 perlweeklychallenge-club-3f6e8a3cb9c5f01120ac32f120dc10f940fabb43.zip | |
ch-2.raku again...
Diffstat (limited to 'challenge-092')
| -rw-r--r-- | challenge-092/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-092/mark-anderson/raku/ch-2.raku b/challenge-092/mark-anderson/raku/ch-2.raku index 15336fe2cd..02d6a79013 100644 --- a/challenge-092/mark-anderson/raku/ch-2.raku +++ b/challenge-092/mark-anderson/raku/ch-2.raku @@ -15,7 +15,7 @@ is-deeply insert-interval((2,5), ((1,2),(3,7),(8,10))), ((1,7),(8,10)); sub insert-interval($N, @S) { return $N, |@S if $N[1] < @S[0;0]; - return |@S, $N if $N[0] > @S[*-1][0]; + return |@S, $N if $N[0] > @S[*-1][1]; my $h = @S.first({ $N[0] <= .[1] }, :k); my $t = @S.first({ $N[1] >= .[0] }, :k:end); |