diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-08-03 12:15:30 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-08-03 12:15:30 +0200 |
| commit | ca59963982f167714b36a4ad2c799f92d31fd6f1 (patch) | |
| tree | c8e3f9dbace5187513a13e2578c635d9f4c96af0 | |
| parent | 0e0fa7254b75c606539139e24f874a782943a460 (diff) | |
| download | perlweeklychallenge-club-ca59963982f167714b36a4ad2c799f92d31fd6f1.tar.gz perlweeklychallenge-club-ca59963982f167714b36a4ad2c799f92d31fd6f1.tar.bz2 perlweeklychallenge-club-ca59963982f167714b36a4ad2c799f92d31fd6f1.zip | |
Lazy solution to task 2.
| -rw-r--r-- | challenge-072/luca-ferrari/raku/ch-2.p6 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-072/luca-ferrari/raku/ch-2.p6 b/challenge-072/luca-ferrari/raku/ch-2.p6 index b5d715578f..22aba947d4 100644 --- a/challenge-072/luca-ferrari/raku/ch-2.p6 +++ b/challenge-072/luca-ferrari/raku/ch-2.p6 @@ -8,4 +8,9 @@ sub MAIN( Str $file-name, for $file-name.IO.lines -> $line { $line.say if ( $A <= ++$line-counter <= $B ); } + + # array with lazy approach + # my @lines = $file-name.IO.lines; + # @lines[ $A .. $B ].join( "\n" ).say; + } |