Re: [FWP] JAPH

[Ilmari Karonen <iltzu@sci.fi>]

On Fri, 15 Dec 2000, Joey Mitchell Comeau wrote:
> 
> perl -e '$_=$\=" perl hacker,";$_&="B";$_|=("B"|"H");$_|="Just another";print;'

$|=@c=1..25;@t=split//,",rekcah lreP rehtona tsuJ";for(1..300){$r=rand$#t;$c
[$r]>$c[$n=$r+1]?redo:print@t,"\r";select$,,$,,$,,.1;(@c[$r,$n],@t[$r,$n])=(
@c[$n,$r],@t[$n,$r])}print@t,"\n"

Not really all that twisted or obfuscated, but fun to watch.

-- 
Ilmari Karonen - http://www.sci.fi/~iltzu/
"Outside, in the big wide world, proof by infinite repetition and proof by
 vehement assertion are much more prevalent."    -- Rik Steenwinkel in SDM



==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe