13 lines
199 B
Raku
13 lines
199 B
Raku
sub MAIN ($infile) {
|
|
$infile.IO.lines ==> printer() ==> my $count;
|
|
say "printed $count lines";
|
|
}
|
|
|
|
sub printer(*@lines) {
|
|
my $lines;
|
|
for @lines {
|
|
.say;
|
|
++$lines;
|
|
}
|
|
$lines;
|
|
}
|