[rochester-pm-list] japh

[Shawn Porter]

Here is a pretty simple one I wrote:

$japh="Jcuksetr ,a\nnSohtahwenr  PPoerrtle rH\na--SnappleMan--";for($i=0;$i
<39;$i+=2){push(@a,$i);$i=-1 if($i==38);}for(@a){print substr($japh,$_,1);}

--
Shawn Porter
http://www.rit.net/sporter
sporter at rit.net

--
On Mon, 15 Mar 1999, Brian Mathis wrote:
> Anyone else willing to give it a shot?