RE: [FWP] Any shorter?

[Andy Jacobs <andyj@microsoft.com>]

> 2. this version contians a bug. Can you spot it?

1 is not officially a prime number (by modern definitions).  But this is
very cute.

 - Andy Jacobs

-----Original Message-----
From: owner-fwp@technofile.org [mailto:owner-fwp@technofile.org]On
Behalf Of Gaal Yahas
Sent: Thursday, July 08, 1999 12:28 PM
To: Fun With Perl
Subject: [FWP] Any shorter?


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

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