Re: [FWP] 4 Consecutive Letters

[David Henderson <davidh@zen.cyberdesic.com>]

On Mon, Aug 14, 2000 at 12:00:09PM -0700, Peter Scott wrote:
> At 11:17 AM 8/14/00 -0700, I wrote:
> >       perl -ne'/(.)(??{join"",map chr ord($1)+$_,1..3})/&&print'

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

This might give you a false positive if there's a word that has
"xyzaa", "yzaaab", or "zaaabac" in it.

Okay, it's probably rather unlikely that there would be any of these,
especially since I don't believe there are any non-abbreviation words
in the English language that have three of the same letter in a row,
and even double-A is rare, but it's still too permissive.

David Henderson
--
For the latest news about Star Trek and Buffy books, visit Psi Phi!
Star Trek Books: http://www.psiphi.org/cgi/upc-db/           <*>
Buffy TVS Books: http://www.psiphi.org/cgi/buffy-db/

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