diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-02-07 22:50:55 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-02-07 22:50:55 +0000 |
| commit | aec4184737ce89cd2feb49e762a61a70b0f7a435 (patch) | |
| tree | 1a51cadbc4a10ed035bb43e6a27aa1762835c38c /challenge-098 | |
| parent | 0ba9380c6bddf22365afb32e18f83f8cdf85eeb1 (diff) | |
| parent | 408e1d86a65d06687099674102f8d07c493e32b4 (diff) | |
| download | perlweeklychallenge-club-aec4184737ce89cd2feb49e762a61a70b0f7a435.tar.gz perlweeklychallenge-club-aec4184737ce89cd2feb49e762a61a70b0f7a435.tar.bz2 perlweeklychallenge-club-aec4184737ce89cd2feb49e762a61a70b0f7a435.zip | |
Merge pull request #3475 from andemark/branch-for-challenge-098
Branch for challenge 098
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; } |