Re: [FWP] A japh attempt

[Ilmari Karonen <iltzu@sci.fi>]

On Wed, 10 May 2000 jboes@qtm.net wrote:
> Comments solicited on this, my first "serious" JAPH attempt. (1) Any way to 
> make it "better"? (Please define "better" as you offer your suggestion!) (2) Is 
> it "original"?
> 
> print map(substr(' acehjklnoprstu',defined $_?$i+=$_:0,1),
>   (5,9,-2,1,undef,-12,7,1,4,-9,-1,8,undef,-1,-7,8,-4,undef,-3,-3,1,4,-3,8));

Better == makes your head spin longer after reading it.  I'm not sure if
the following matches that definition, but I like it:

  ($a,$b)=map[split//]," acehjklnoprstu","swloaouoremvcxgvjgrkorkv";
  print map$$a[$i-=110-ord],@$b;

split// is fun.  Here's another japh I wrote earlier:

  print@{{split//,"buitdtcsxrprlrhognqlvkshjhweoekeuctafanPaJy,r m e z\n"}}{a..z}

-- 
Ilmari Karonen
http://www.sci.fi/~iltzu/


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