in reply to
Replaying Santa Claus Golf Apocalypse with Pugs/Perl6
And here is my masterpiece for today, wc.p6:
say*(split"",int(7e10+ +*(=open@ARGS[0])))[1..11]
Just a quick explanation about
+*(=open@ARGS[0]): the
* operator forces the
= $filehandle operator into
list context, which is then forced into scalar context to count the number of
lines in the file. Similar idea is used right after
say, to force
the ourput of
split[] into list context without the use of
join.
Update: And of course, head.p6 along similar lines:
print*(=open@ARGS[0])[0..9]
