All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars    
perplexus dot info

Home > General > Word Problems
Synonym Surveillance (Posted on 2014-05-06) Difficulty: 3 of 5
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

No Solution Yet Submitted by K Sengupta    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer solutions Comment 3 of 3 |
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
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (2)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information