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

[Jeff Pinyan <jeffp@crusoe.net>]

On Jan 31, Jeff Pinyan said:

>>$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}

-- 
Jeff "japhy" Pinyan     japhy@pobox.com    http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource  (my id:  PINYAN)       http://search.cpan.org/
PerlMonks - An Online Perl Community          http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc.   http://www.perlarchive.com/


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