Re: [FWP] Puzzle thread on clpmod

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

On Wed, Jul 07, 1999 at 12:51:00PM -0400, Chaim Frenkel wrote:
> >>>>> "JP" == John Porter <jdporter@min.net> writes:
> 
> JP>     while ( /[a-e](?=[a-e]{4})/g ) {
> JP>       join( '', sort split //, substr( $_, pos()-1, 5 ) ) eq 'abcde' or next;
> 
> You need an lc in there, some words are capitalized.

Not in my wordlist.  :)


> How about the slightly shorter (join '', sort split //, lc) =~ /^abcde/

Shorter but incorrect (see clpmod).  It does not work properly with
duplicate letters, and it does not require the 5 letters to be consecutive.

Ronald

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