Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Lispy

by beth (Scribe)
on May 10, 2004 at 05:09 UTC ( #351964=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl -l (print (join (" ", (map {sprintf (reverse (split (//, (substr ($_, 1)))))} (sort (qw (jlianregnif ksgnippilc yyrraL zllaW aPSIL flaeppa bsah m.ni clla ldexim ssti tetiuq prehtO w.egaugnal vecin qnaht r,taht ua hlaemtao gfo deht elausiv ihtiw x--)))))))

Replies are listed 'Best First'.
Re: Lispy
by educated_foo (Vicar) on May 10, 2004 at 08:16 UTC
    Or something similar, designed to drive lispers insane with its carefully imbalanced parens:
    (print (join (q) ), (map sprintf (reverse (split (q)), (substr $_, 1)))), (sort (qw) jlianregnif ksgnippilc yyrraL zllaW aPSIL flaeppa bsah m.ni clla ldexim ssti tetiuq prehtO w.egaugnal vecin qnaht r,taht ua hlaemtao gfo deht elausiv ihtiw x--) ))))))

      Yes, q)) is indeed a good obfu-feature. An other example of that quoting style is Re: Japh algebra.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://351964]
Approved by PodMaster
Front-paged by grinder
help
Chatterbox?
[ambrus]: Corion: exactly. by pre-forking you avoid that, because you spawn processes from a smaller process that never uses threads and is kept only to spawn things
[ambrus]: (and to wait for the spawned stuff)

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (14)
As of 2017-10-19 15:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (255 votes). Check out past polls.

    Notices?