diff options
| -rwxr-xr-x | challenge-072/mohammad-anwar/raku/ch-2.raku | 4 | ||||
| -rwxr-xr-x | challenge-072/mohammad-anwar/raku/ch-2a.raku | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/challenge-072/mohammad-anwar/raku/ch-2.raku b/challenge-072/mohammad-anwar/raku/ch-2.raku index 2e42757eaa..2618eb921e 100755 --- a/challenge-072/mohammad-anwar/raku/ch-2.raku +++ b/challenge-072/mohammad-anwar/raku/ch-2.raku @@ -17,10 +17,10 @@ sub MAIN(Str :$file where *.IO.f, lines-range($file, $A, $B).join("\n").say; } -sub lines-range(Str $file, Int $A, Int $B) { +sub lines-range(Str $file, Int $A is copy, Int $B is copy) { my @lines = Empty; - for $A-1 .. $B-1 -> $i { + for --$A .. --$B -> $i { @lines.push: $file.IO.lines[$i]; } diff --git a/challenge-072/mohammad-anwar/raku/ch-2a.raku b/challenge-072/mohammad-anwar/raku/ch-2a.raku index fa477ce6ce..add1a325e4 100755 --- a/challenge-072/mohammad-anwar/raku/ch-2a.raku +++ b/challenge-072/mohammad-anwar/raku/ch-2a.raku @@ -27,10 +27,10 @@ for @test-cases -> $test { done-testing; -sub lines-range(Str $file, Int $A, Int $B) { +sub lines-range(Str $file, Int $A is copy, Int $B is copy) { my @lines = Empty; - for $A-1 .. $B-1 -> $i { + for --$A .. --$B -> $i { @lines.push: $file.IO.lines[$i]; } |