If
AB, BC, CD and
DE are common English words, what familiar word is
DCABE?
Source: David L. Silverman, Word Ways, August 1969.
From the below list of computer-generated possibilities, the most common words might be in
DCABE
house
us so oh he
AB BC CD DE
or
DCABE
rouse
us so or re
AB BC CD DE
abbas
ba ab ba as
albas
ba al la as
alder
de el la ar
alfas
fa al la as
allay
la al la ay
almah
ma al la ah
almas
ma al la as
almeh
me el la ah
almes
me el la as
aloes
oe el la as
altar
ta al la ar
amahs
ah hm ma as
amber
be em ma ar
ambos
bo om ma as
ammos
mo om ma as
anlas
la an na as
annal
na an na al
annas
na an na as
annex
ne en na ax
annoy
no on na ay
annul
nu un na al
antae
ta an na ae
antas
ta an na as
antis
ti in na as
atlas
la at ta as
atman
ma at ta an
atmas
ma at ta as
attar
ta at ta ar
debye
by ye ed de
douse
us so od de
embar
ba am me er
embed
be em me ed
ember
be em me er
emmer
me em me er
emmet
me em me et
ended
de en ne ed
ender
de en ne er
ephod
ho op pe ed
ephor
ho op pe er
ergot
go or re et
ernes
ne er re es
erred
re er re ed
haute
ut ta ah he
hoise
is so oh he
house
us so oh he
imams
am mm mi is
imbed
be em mi id
imped
pe em mi id
isbas
ba as si is
lanai
na aa al li
lemma
mm me el la
mamma
mm ma am ma
mammy
mm ma am my
mashy
sh ha am my
meany
an ne em my
meiny
in ne em my
meshy
sh he em my
momma
mm mo om ma
mommy
mm mo om my
moody
od do om my
moony
on no om my
moose
os so om me
mouse
us so om me
mousy
us so om my
mummy
mm mu um my
neume
um me en ne
noise
is so on ne
noose
os so on ne
odder
de ed do or
ogham
ha ag go om
olden
de el lo on
older
de el lo or
ollas
la al lo os
omber
be em mo or
other
he et to or
ottar
ta at to or
poise
is so op pe
roose
os so or re
rouse
us so or re
route
ut to or re
saith
it ta as sh
selah
la ae es sh
south
ut to os sh
teloi
lo oe et ti
umbos
bo om mu us
unais
ai in nu us
unban
ba an nu un
ungot
go on nu ut
unhat
ha an nu ut
unhip
hi in nu up
unlit
li in nu ut
unman
ma an nu un
unmet
me en nu ut
unpen
pe en nu un
unpin
pi in nu un
unwon
wo on nu un
youse
us so oy ye
DefDbl A-Z
Dim crlf$, used(5)
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
Open "c:\words\words5.txt" For Binary As #1
Open "c:\words\words2.txt" For Binary As #2
l$ = Space$(5): w$ = Space$(2)
Do
Get #1, , l$
If EOF(1) Then Exit Do
If isWord(Mid(l, 3, 2)) Then
If isWord(Mid(l, 4, 1) + Mid(l, 2, 1)) Then
If isWord(Mid(l, 2, 1) + Mid(l, 1, 1)) Then
If isWord(Mid(l, 1, 1) + Mid(l, 5, 1)) Then
Text1.Text = Text1.Text & l & crlf
Text1.Text = Text1.Text & Mid(l, 3, 2) & " " & Mid(l, 4, 1) + Mid(l, 2, 1) & " "
Text1.Text = Text1.Text & Mid(l, 2, 1) + Mid(l, 1, 1) & " "
Text1.Text = Text1.Text & Mid(l, 1, 1) + Mid(l, 5, 1) & crlf
End If
End If
End If
End If
Loop
Close 1
Text1.Text = Text1.Text & crlf & " done"
End Sub
Function isWord(w$)
n = Len(w$)
If n <> 2 Then isWord = 0: Exit Function
w1$ = Space$(n)
l = LOF(2) / n
low = 1: high = l
Do
middle = Int((low + high) / 2)
Get #2, (middle - 1) * n + 1, w1$
If w1$ = w$ Then isWord = 1: Exit Function
If w1$ < w$ Then low = middle + 1 Else high = middle - 1
Loop Until low > high
isWord = 0
End Function
|
|
Posted by Charlie
on 2015-12-28 21:04:38 |
computer solution
