Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Challenge: 8 Letters, Most Words

by Tux (Monsignor)
on Oct 05, 2013 at 08:51 UTC ( #1057015=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    With the requirement of an 8-letter word:
    
    ...
    3 ail ain air ait ale ali alt ane ani ans are art asl ate ats ean ear 
    +eat ela eli
    2 ae ai al an ar at ea el en er et ia ie il in ir it la le li ln lr lt
    + na ne ni
    1 a e i l n r s
    
  2. or download this
    With the requirement of at least a 7-letter word:
    Reading ...
    ...
    3 ail ain air ait ale ali alt ane ani ans are art asl ate ats ean ear 
    +eat ela
    2 ae ai al an ar at ea el en er et ia ie il in ir it la le li ln lr lt
    + na ne ni
    1 a e i l n r s
    
  3. or download this
    With 2of12ing and 8-letter word required:
    Reading ...
    ...
    4 airs ante anti ants apes apse ares arts earn ears east eats eras ers
    +t etas
    3 air ani ant ape apt are art asp ate ear eat ens era eta ins ire its 
    +nae nap
    2 an as at en in is it pa pi re
    
  4. or download this
    #!/usr/bin/perl
    
    ...
        my @w = map { @{$magic{$_}{words}} } @{$magic{$best}{ext}[$l]};
        showfirst ($l, join " " => sort @w);
        }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1057015]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2014-11-26 03:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (162 votes), past polls