[FWP] Any shorter?

[Gaal Yahas <gaal@forum2.org>]

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)


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