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