challenge-072/arne-sommer/raku/line-range-slice


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#! /usr/bin/env raku

subset PosInt of Int where * >= 1;

unit sub MAIN (Str $filename, PosInt $A, PosInt $B where $B >= $A, :v(:$verbose));

my @lines = $filename.IO.lines;
my $lines = @lines.elems;
my $start = min($lines -1, $A -1);
my $stop  = min($lines -1, $B -1);

say ": $start .. $stop" if $verbose;

say @lines[$start .. $stop].join("\n");