Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

This one goes for the archives

by rg0now (Chaplain)
on Mar 17, 2005 at 19:51 UTC ( #440514=note: print w/ replies, xml ) Need Help??


in reply to Replaying Santa Claus Golf Apocalypse with Pugs/Perl6

After many bugfixes that went to Pugs as the side-effect of this very nice contest, here is the final (now, really) version of my strike at the Santa Claus Golf Apocalypse with Pugs/Perl6 that is assumed to work with current Pugs:

--- head.p6 --------------------------------------------- print*(=<>)[0..9] --- tail.p6 --------------------------------------------- my@l= =<>; print@l[(@l>9??@l-10::0)...] --- rev.p6 --------------------------------------------- print reverse=<> --- mid.p6 --------------------------------------------- my@l= =<>; print@l[int((@l-1)/2)..int(@l/2)] --- wc.p6 --------------------------------------------- say*(split"",int(7e10+ +*(=<>)))[1..11]
This is only 153 strokes, but I am entirely convinced that you can do it by less work... Go figure!

rg0now


Comment on This one goes for the archives
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://440514]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-08-23 20:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (178 votes), past polls