Re: [FWP] Any shorter?

[Sam Phillips <sam@usaworks.com>]

On Thu, 8 Jul 1999, Gaal Yahas wrote:

> Message-ID: <19990708163519.B18492@netvision.net.il>
> Date: Thu, 8 Jul 1999 16:35:19 +0300
> Reply-To: gaal@forum2.org
> Content-Type: text/plain; charset=us-ascii
> X-Mailer: Mutt 0.93i
> X-Disclaimer: If what I write is crazy, you can't sue me!
> >From vlb@cfcl.com  Thu Jul  8 06:47:38 1999
> 
> Hi,
> 
> Can anyone shorten the following:
> 
> 	perl -le '(1x++$_)!~/^(11+)\1+$/&&print while 1'
> 
> (it's fun to figure out what it does before running it)
>

Didn't someone post something similar to this already.  It was about 2
weeks ago I think.
 
> 
> Notes:
> 1. the original version from which this is stolen was posted on
>    Cypherpunks sometime in the past - only this version is by me.
> 2. this version contians a bug. Can you spot it?
> 
> -- 
> 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
> 

===
Sam Phillips <sam@usaworks.com>               http://www.usaworks.com/~sam
The number of UNIX installations has grown to 10, with more expected.
	-- The Unix Programmer's Manual, 2nd Edition, June 1972


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