Re: [FWP] 4 Consecutive Letters

[Uri Guttman <uri@sysarch.com>]

>>>>> "PS" == Peter Scott <Peter@PSDT.com> writes:

  PS> At 10:10 PM 8/14/00 -0400, Rick Delaney wrote:
  >> Don't forget the common golf trick of replacing ($1) with $&,
  >> 
  >> perl -ne'/.(??{++($b=++($a=$&));$a.$b.++$b})/&&print'
  >> 
  >> though I can't say that that's properly defined, either.

  PS> That makes this the shortest so far, then:

  PS>        perl -ne'/.(??{($a=$&)++;$a++.$a++.$a})/&&print'

and i bet you can change && to & for one more char (another golf trick
that works sometimes). i can't test as /usr/dict/words on solaris
doesn't seem to have any words that match that.

uri

-- 
Uri Guttman  ---------  uri@sysarch.com  ----------  http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page  -----------  http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net  ----------  http://www.northernlight.com

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