diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 06:33:16 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 06:33:16 +0100 |
| commit | 84a5caf1f9f3ea376c0affb3a5d2ad722aa21c4c (patch) | |
| tree | 859b2fefe70fe88d50070a55ff99357963e5b7da /challenge-072 | |
| parent | 3295f94a3fc8bf6b1b78d24609baa643db77a352 (diff) | |
| download | perlweeklychallenge-club-84a5caf1f9f3ea376c0affb3a5d2ad722aa21c4c.tar.gz perlweeklychallenge-club-84a5caf1f9f3ea376c0affb3a5d2ad722aa21c4c.tar.bz2 perlweeklychallenge-club-84a5caf1f9f3ea376c0affb3a5d2ad722aa21c4c.zip | |
- Tidied up Raku solutions.
Diffstat (limited to 'challenge-072')
| -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]; } |