Re: [FWP] A program for de?YH@atqxhp-,"qFx"='`z_FT5_yE_\%:8^&OXS\o%k8bN

[Jeff Pinyan <jeffp@crusoe.net>]

On Mar 7, Kevin Reid said:

>#!/usr/bin/perl -wT
>@c=(1,-1);@d=(0,1);@p=map[split''],split$/,q!
>sub f {(sin($_[0]/3) * sin($_[0]/42)*39+40)}V
>V}c$}c$<_$ fi _$=c${)_@(rof;tfihs=c$ym{n bus%
>&sub x{my$c=shift;for(@_){$c=$_ if $_>$c}$c}V
>V)24/i$(nis-(,_$(rtsbus;''%$i++;1elihw'r'=V%f
>&*39+40),1)='$';pVX}t%Vx'% V,1+))1+i$(f -)%io
>&(sin($i/42)*39+Vr&V n&79 . $/;$n=x(abs(f($^r
>,(sin($i/39)*42, &^&i^_:_^' =_${)++i$;;0=i$(%
>^  _$(rts%/:ptth&40),1)='$^&1);$s=n(f($i),f(V               
>.0.0.721/^bus;n$x'*'=)n$,s$,_$(rtsbus;))1+i$%
>!;%d=(q[V],[1,0],q[&],[0,1],q[%],[0,-1],q[^],
>[-1,0],q[X],[]);($t=$d{$c=$p[$c[0]+=$d[0]][$c
>[1]+=$d[1]]})?@d=@$t:$_.=$c while@d;s//$_/ee;
>NO CARRIER

Well, Kevin, there's just one thing to say.

  0"eugnufeB fo em sdnimeR">:#,_@

(But in a good way.)

-- 
Jeff "japhy" Pinyan      japhy@pobox.com      http://www.pobox.com/~japhy/
Are you a Monk?  http://www.perlmonks.com/     http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc.     http://www.riskmetrics.com/


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