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

Not quite a JAPH

by Tyke (Pilgrim)
on Mar 08, 2001 at 14:34 UTC ( #62942=obfuscated: print w/ replies, xml ) Need Help??

Just wanted to prove to myself that I could do it too (and to let Jouke have his turn to carp at me ;))
$_->()for map{my$y=$_;sub{print$y}}(split qr,,,q,use re;$y=~tr/kn ol/Japh/c;$,)[map-0141+ord,q=uabldv;prlxfmdwfeoidxvzofe==~m~.~g];
With apologies to John Porter on the FWP mail list

Warning The line feed after the kn should not be deleted!

Spoiler
$_->() # Execute closure for map{ my $y = $_; # Lexical for closure sub{ print $y } # Create closure } # Create a list by splitting q,, text into characters ( split qr,,, q,use re;$y=~tr/knXol/Japh/c;$, # ^... Place holder for line feed ) # Create a slice into the text list above. The contents # of [] are the indices of the characters that I want to # use in the text above, in the order I want to use them [ map -0141 + ord, # $_ - ord('a') q=uabldv;prlxfmdwfeoidxvzofe= =~ m~.~g # Splits into characters ];

-- I knock my pate and fancy wit will come Knock as I please, there's no one at home a pontiff paraphrased

Comment on Not quite a JAPH
Select or Download Code
Re: Not quite a JAPH
by Jouke (Curate) on Mar 08, 2001 at 15:48 UTC
    OK. I admit...you got me puzzled. Please, please explain...why does this work? Tyke++!!

    Jouke Visser, Perl 'Adept'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2015-07-04 05:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls