Unjumbling JAPH

A JAPH that unjumbles itself, tested under 5.6.1 and 5.8.0 on Linux.

$|=($\=>@])=("\r"=>split//=>q=sPnh aku,telchte rJeaorr =);{($@,$))=map
+$***$_%25
=>3=>2;@][$)=>$@]=@][$@=>$)];print@];select$,,$,,$,,$*/$=;$*++-$=&&red
+o}print$/
[download]

-- Mike

-- just,my${.02}

Comment on Unjumbling JAPH Download Code

Replies are listed 'Best First'.
Re: Unjumbling JAPH by Mr. Muskrat (Canon) on Apr 04, 2003 at 17:16 UTC
Very nice! If you replace all instances of $) with $: (or some other unused variable), it'll even run on Windows 98. `$\|=($\=>@])=("\r"=>split//=>q=sPnh aku,telchte rJeaorr =);{($@,$:)=map +$**$_%25 =>3=>2;@][$:=>$@]=@][$@=>$:];print@];select$,,$,,$,,$/$=;$*++-$=&&red +o}print$/` [download]	[reply] [d/l]
Re: Unjumbling JAPH by crenz (Priest) on Apr 06, 2003 at 22:37 UTC
`sPnh aku,telchte rJeaorr` You know, that really looks like the first Klingon JaPH to me :) Nice!	[reply]
Re: Unjumbling JAPH by Clownburner (Monk) on Apr 12, 2003 at 00:04 UTC
It even runs on OS/X! Cool! "Non sequitur. Your facts are un-coordinated." - Nomad	[reply]