Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

2Re: Goofy leaping ninja stickmen

by jeffa (Chancellor)
on Oct 07, 2003 at 20:24 UTC ( #297387=note: print w/ replies, xml ) Need Help??


in reply to Re: Goofy leaping ninja stickmen
in thread Goofy leaping ninja stickmen

Hey! This isn't LispMonks.org!! ;)

perl -pe 'next unless $n++;/^\+/ ? s/^\+// : s/\n$//' foo.pl

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)


Comment on 2Re: Goofy leaping ninja stickmen
Download Code
Re: Goofy leaping ninja stickmen
by jonadab (Parson) on Oct 09, 2003 at 16:38 UTC
    Hey! This isn't LispMonks.org!

    Just you wait, someday I'll write a bilingual lisp/Perl obfuscated quine, or something ;-)


    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2014-11-23 05:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (128 votes), past polls