Some synonyms of a keyword are listed in each of the following. Take one letter in turn from each of these synonyms to spell out a further synonym of the keyword.
(I) KEYWORD : tremendous
SYNONYMS: great,terrific, monstrous, vast,enormous,gigantic, colossal
(II) KEYWORD : skillful
SYNONYMS: able,adept,dextrous,proficient,accomplished, competent
(III) KEYWORD: proficient
SYNONYMS: adept,expert,apt,skilled,competent,able, versed
(IV) KEYWORD: notable
SYNONYMS: celebrated,famous,striking,renowned, rare,unusual,outstanding
(V) KEYWORD: rigid
SYNONYMS: harsh,rigorous,stern,stringent,severe, strict, set
DefDbl A-Z
Dim wd(10) As String, w As String, sz, crlf$
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
wd(1) = "great"
wd(2) = "terifc"
wd(3) = "monstru"
wd(4) = "vast"
wd(5) = "enormus"
wd(6) = "giantc"
wd(7) = "colsa"
sz = 7
addIn 1
End Sub
Sub addIn(wh)
For i = 1 To Len(wd(wh))
If wh = 1 Then Text1.Text = Text1.Text & Mid(wd(wh), i, 1) & crlf$: DoEvents
w = w + Mid(wd(wh), i, 1)
If wh = sz Then
If isWord(w) Then
Text1.Text = Text1.Text & w & crlf$: DoEvents
End If
Else
addIn wh + 1
End If
w = Left(w, Len(w) - 1)
Next
End Sub
Function isWord(w$)
n = Len(w$)
w1$ = Space$(n)
Open "\words\words" + LTrim$(Str$(n)) + ".txt" For Binary As #2
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: Close 2: Exit Function
If w1$ < w$ Then low = middle + 1 Else high = middle - 1
Loop Until low > high
isWord = 0
Close 2
End Function
finds
g
r
renvois
e
errants
ectasis
a
acrasia
t
tenants
testons
tetanic
tetanal
truants
tissual
titanic Part 1 solution.
titania
similar programs find
a
addict
adroit Part 2 solution
aedile
aeonic
aptest
attest
atopic
atonic
b
battle
batten
barrio
barret
barren
barest
basion
basest
bedpan
beetle
betime
betise
betide
berime
beside
beseem
l
ladron
laxest
latest
lateen
lattin
latten
lariat
laurae
launce
lexeme
leucin
lesion
e
edenic
epopee
etoile
a
article
d
drainer
drained
e
exalter
exalted
p
petiole
petites
t
teasels
trainee
trainer
trained Part 3 solution
c
caserns
cateran
carrels
careens
cannels
candent
candela
coteaus
corrals
corneas
cornels
currant
currans
current
cuirass
e
earnest
eminent Part 4 solution
estreat
l
laterad
lateens
landaus
lurdans
b
barrens
barrels
bandana
bandeau
boreens
bordels
bureaus
burdens
r
randans
ronnels
rondeau
rondels
runnels
a
auroras
astrals
t
tannest
torrent
tonneau
tureens
tunnels
tundras
d
darnels
dunnest
dunness
h
hissers
hitters
hinters
hingers
hostess
hosiers
hottest
hotness
hornets
hurters
hunters
hungers
a
artists
artiste
artiest
arrests
airiest
ageists
aorists
austere Part 5 solution
aurists
assists
asserts
r
ritters
rinsers
ringers
rosters
rosiest
rotters
russets
runners
s
sisters
sitters
sinters
sinners
singers
sorters
sorners
sonnets
surgers
sunsets
|
|
Posted by Charlie
on 2014-05-06 14:51:22 |
computer solutions
