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

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




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

Now where did I put that one-liner.. ah, here it is:

  perl -e 'for(s//db\n/;print;s/..(?=d)/$&^DB/eg){s/^/ /}' | less

Oh, and this one runs just fine even under perl 5.004_04.

-- 
Ilmari Karonen
http://www.sci.fi/~iltzu/


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