Take the expression "ethiopian pandit", erase 4 letters and rearrange the rest to create an 11-letter adjective you surely know.
I hope (not absolutely sure) there is only one way to do it!
The program at bottom failed to find any words in by 11-character word list that satisfy the criterion. Listed below are all the 11-letter words for which 10 of its letters were found in "ethiopianpandit". Shown after it are the letter not found and the five letters that remained unused. For example, in indentation, a third n was not found among the remaining hppai after the first ten letters were accounted for.
If any 11-letter words had been found, I would have checked which was/were adjective(s).
annihilated 10 l oppit
anticathode 10 c pipni
anticipated 10 c hopni
antioxidant 10 x ehppi
antipathies 10 s opndi
antiphonies 10 s padit
antipodeans 10 s hipit
antityphoid 10 y epani
appointment 10 m hiadi
deamination 10 m hppit
decantation 10 c hpipi
destination 10 s hppai
diaphaneity 10 y opnit
expatiation 10 x hpndi
indentation 10 n hppai
itineration 10 r hppad
methanation 10 m pipdi
nonadaptive 10 v hipit
nonattached 10 c ipipi
noninitiate 10 n hppad
opinionated 10 o hpait
palpitation 10 l ehndi
partitioned 10 r hpani
patinations 10 s ehpdi
pectination 10 c hpadi
petitioning 10 g hapad
phonetician 10 c padit
propitiated 10 r hnani
trepanation 10 r hipdi
trepidation 10 r hpani
uninitiated 10 u hoppa
Open "c:\words\words11.txt" For Binary As #1
w$ = Space$(11)
Do
Get #1, , w
w = LCase(w)
If EOF(1) Then Exit Do
t$ = "ethiopianpandit"
good = 1: lct = 0: miss1$ = "": miss2$ = ""
For i = 1 To 11
ix = InStr(t, Mid(w, i, 1))
If ix = 0 Then good = 0: ' Exit For
If ix > 0 Then
t = Left(t, ix - 1) + Mid(t, ix + 1)
lct = lct + 1
Else
miss1 = Mid(w, i, 1)
End If
Next
If lct > 9 Then Text1.Text = Text1.Text & w & Str(lct) & " " & miss1 & " " & t & crlf
DoEvents
Loop Until EOF(1)
Close 1
|
|
Posted by Charlie
on 2018-11-18 11:45:06 |
computer failure to find solution
