my@l=(open@ARGS[0]).readline(); for(@l){print pop(@l)}
Update: using the = $filehandle operator in list context, this boils down to:
my@l==open@ARGS[0]; for(@l){print pop(@l)}
rg0now
In reply to Re: Replaying Santa Claus Golf Apocalypse with Pugs/Perl6
by rg0now
in thread Replaying Santa Claus Golf Apocalypse with Pugs/Perl6
by eyepopslikeamosquito
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |