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

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



In article <20010209144455.C8C107097C@server5.safepages.com>,
	"Keith Calvert Ivey" <kcivey@cpcug.org> writes:
> 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}
> 
A bit more shaving:
    $_=$"x050.00.$/;print,s/(?<=0_)./$&^o/eg,s/$/_0/while+s/ //
(exchange the print with the while test to get the original infinite loop)

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