Re: [FWP] Re: about that JAPH of yours...

[kpreid@attglobal.net (Kevin Reid)]

[This would have been sent earlier, but I had a little trouble with the
list.]

Jeff Pinyan wrote:
> >>$A='A';while(print+($A.=(grep{($A=~/(...).{78}$/)[0]eq$_}"  A A A  "
> >>=~m{(...)}g)?"A":" ")=~/([ A])$/){if(!(++$l%80)){print"\n";sleep 1}}
> >
> >Ah, Sierpinski's triangle.
> 
> I present Sierpinski's triangle in 70 characters:
> 
> $_=0;{print' 'x(40-.5*length),"$_\n";s/(?<=0_)./$&?0:_/eg;$_.=_0;redo}

50 characters and it runs under 5.004:

for$y(0..31){for(0..31){print$_&$y?$":'*'}print$/}

-- 
 Kevin Reid: |    Macintosh:      
  "I'm me."  | Think different.

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