Re: [Fun With Perl] A prime example

[Steve Willer <willer@interlog.com>]

On Thu, 10 Jun 1999, Eric Raible wrote:

> Can anyone do this in fewer characters?
> 
> sub f{(1x shift)!~/^(11+)\1+$/}

  sub f{(1x$_[0])!~/^(11+)\1$/}

I don't know what that last '+' was doing in your regexp.


==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org