in reply to Replaying Santa Claus Golf Apocalypse with Pugs/Perl6
After updating to the most current Pugs and incorporating all the ideas above, here is my final strike on the Santa Claus Perl6/Pugs Golf Apocalypse:
It is all but nice but is is actually only 203 strokes...:-)--- head.p6 --------------------------------------------- print*(=open@ARGS[0])[0..9] --- tail.p6 --------------------------------------------- my@l= =open@ARGS[0]; print@l[(@l>9??@l-10::0)...] --- rev.p6 --------------------------------------------- print reverse=open@ARGS[0] --- mid.p6 --------------------------------------------- my@l= =open@ARGS[0]; print@l[int((@l-1)/2)..int(@l/2)] --- wc.p6 --------------------------------------------- say*(split"",int(7e10+ +*(=open@ARGS[0])))[1..11]
rg0now
|
---|
In Section
Meditations