diff options
Diffstat (limited to 'challenge-098')
| -rw-r--r-- | challenge-098/mark-anderson/raku/ch-1.raku | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/challenge-098/mark-anderson/raku/ch-1.raku b/challenge-098/mark-anderson/raku/ch-1.raku index 91c9b769b5..11dff3741f 100644 --- a/challenge-098/mark-anderson/raku/ch-1.raku +++ b/challenge-098/mark-anderson/raku/ch-1.raku @@ -8,10 +8,7 @@ is readN("input.txt", 4), "90"; sub readN($FILE, $number) { - my $fh = open $FILE, :r; - my $head = $fh.readchars: $number; - my $tail = $fh.slurp; - $fh.close; - $FILE.IO.spurt: $tail; - return $head; + state %fh; + %fh{$FILE} = open $FILE unless %fh{$FILE}; + %fh{$FILE}.readchars: $number; } |