[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

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

Jeff Pinyan <jeffp@crusoe.net> wrote:

> I present Sierpinski's triangle in 70 characters:
> 
> $_=0;{print' 'x(40-.5*length),"$_\n";s/(?<=0_)./$&?0:_/eg;$_.=_0;redo}

Very nice.  I shaved off two more by using special variables:

  $_=0;{print$"x(40-.5*length),$_,$/;s/(?<=0_)./$&?0:_/eg;$_.=_0;redo}

-- 
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC

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