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

Re: [FWP] Any shorter?

On Thu, Jul 08, 1999 at 02:59:05PM -0700, Sam Phillips wrote:

> > 	perl -le '(1x++$_)!~/^(11+)\1+$/&&print while 1'
> 
> Didn't someone post something similar to this already.  It was about 2
> weeks ago I think.

Whoops! Sorry if that is the case. I only joined last week.

The original version (well, the one I saw) was fifteen bytes longer
than this (some of them were spaces though :-)

-- 
believing is seeing
gaal@forum2.org
http://www.forum2.org/gaal/

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