Re: [FWP] Any shorter?

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

> 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?
> 

This looks suspiciously like one of Abigail's one-liners.  As far as I
know, she was the original author.

Ronald

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