What is the longest English word(s) that can be produced from the letters contained in each of the following?
(1) TWO THOUSAND AND TWELVE
(2) DUO MILIA ET MILLE
(3) DEUX MILLE ET DOUZE
(4) ZWEITAUSEND UND ZWOLF
(5) TO TUSINDE OG TOLV
(6) TWEEDUIZEND EN TWAALF
(7) TVA TUSEN OCH TOLV
(8) DOS MIL DOCE
(9) DUE MILA E DODICI
** For example, the longest word that can be produced from the letters contained in "NUHRIAKMTE" is "RUMINATE". For some of the above phrases, there may exist more than one word having the maximum number of letters.
*** Proper nouns, acronyms, abbreviations, hyphens, spaces are not allowed. Number of occurrences of a letter in the word is limited to the number of occurrences in the phrase.
Showing original letters, number used out of how many, fraction of letters used, and formed words:
original used/ fract. formed
letters out of used words
twothousandandtwelve 11/20 .5500 nonathletes
woodenheads
duomiliaetmille 10/15 .6667 multimedia
multimodal
deuxmilleetdouze 10/16 .6250 outduelled
zweitausendundzwolf 12/19 .6316 undefoliated
totusindeogtolv 12/15 .8000 deontologist
tweeduizendentwaalf 11/19 .5789 unalienated
tvatusenochtolv 10/15 .6667 convolutes
touchstone
dosmildoce 8/10 .8000 miscoded
duemilaedodici 10/14 .7143 duodecimal
DATA TWOTHOUSANDANDTWELVE
DATA DUOMILIAETMILLE
DATA DEUXMILLEETDOUZE
DATA ZWEITAUSENDUNDZWOLF
DATA TOTUSINDEOGTOLV
DATA TWEEDUIZENDENTWAALF
DATA TVATUSENOCHTOLV
DATA DOSMILDOCE
DATA DUEMILAEDODICI
CLS
DIM maxWord$(22)
FOR iter = 1 TO 9
READ source$
numWds = 0
source$ = LCASE$(source$)
maxSize = 0
OPEN "\words\words.txt" FOR INPUT AS #1
DO
LINE INPUT #1, w$
s$ = source$
good = 1
FOR i = 1 TO LEN(w$)
ix = INSTR(s$, MID$(w$, i, 1))
IF ix = 0 THEN good = 0: EXIT FOR
s$ = LEFT$(s$, ix - 1) + MID$(s$, ix + 1)
NEXT
IF good THEN
IF LEN(w$) >= maxSize THEN
IF LEN(w$) > maxSize THEN
maxSize = LEN(w$)
numWds = 1
ELSE
numWds = numWds + 1
END IF
maxWord$(numWds) = w$
END IF
END IF
LOOP UNTIL EOF(1)
CLOSE 1
PRINT source$; TAB(22); LTRIM$(STR$(maxSize)); "/"; LTRIM$(STR$(LEN(source$)));
PRINT TAB(28); : PRINT USING ".####"; maxSize / LEN(source$);
FOR i = 1 TO numWds
PRINT TAB(35); maxWord$(i)
NEXT
NEXT iter
|
|
Posted by Charlie
on 2012-05-02 13:27:09 |
computer solution (spoilers)
