diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-12-21 19:27:54 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-12-21 19:27:54 -0700 |
| commit | 68fa07637828d77b96e8cd29a74ba7dcb23ef7ad (patch) | |
| tree | 60ea997bad769c9d26302eedc5f0fb18b5d08a4b | |
| parent | f868501687a7360a7e37ab32879b059bd49ab5c6 (diff) | |
| download | perlweeklychallenge-club-68fa07637828d77b96e8cd29a74ba7dcb23ef7ad.tar.gz perlweeklychallenge-club-68fa07637828d77b96e8cd29a74ba7dcb23ef7ad.tar.bz2 perlweeklychallenge-club-68fa07637828d77b96e8cd29a74ba7dcb23ef7ad.zip | |
initial II :)
| -rw-r--r-- | challenge-092/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-092/mark-anderson/raku/ch-2.raku b/challenge-092/mark-anderson/raku/ch-2.raku index 24058202b5..0097190745 100644 --- a/challenge-092/mark-anderson/raku/ch-2.raku +++ b/challenge-092/mark-anderson/raku/ch-2.raku @@ -14,11 +14,11 @@ is-deeply insert-interval( is-deeply insert-interval( (1,9), [(2,3), (7,8)]), [(1,9),], "Around"; -sub insert-interval($N is copy, @S) { - my @result; - +sub insert-interval($N, @S) { return [$N, |@S] if $N[1] < @S[0;0]; + my @result; + @result.push: @S.shift while @S and @S[0;1] < $N[0]; my $head = min @S[0;0], $N[0]; |