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

Home > General > Word Problems
Antonym Ascertainment (Posted on 2013-04-16) Difficulty: 3 of 5
Some antonyms of a given keyword are listed in each of the following. Take one letter in turn from each of these antonyms to spell out a further antonym of the keyword.
       
1. KEYWORD: SHODDY               
   ANTONYMS: meticulous, considerate, accurate, fine, fastidious, superlative, excellent.

2. KEYWORD : OMNIPOTENT      
   ANTONYMS: inferior, impotent, powerless, vulnerable, frail, incapable.

3. KEYWORD : OUTSET  
   ANTONYMS: finish, closing, end, termination, conclusion, completion.

See The Solution Submitted by K Sengupta    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Some Thoughts filling in number 1 via computer | Comment 2 of 4 |

DECLARE SUB addOn (p!)
DECLARE FUNCTION isWord! (w$)
DIM SHARED w0$(10), wd$

DATA meticulous, considerate, accurate, fine, fastidious, superlative, excellent

FOR i = 1 TO 7
  READ w0$(i)
NEXT i

addOn 1

END

SUB addOn (p)
  FOR i = 1 TO LEN(w0$(p))
    l$ = MID$(w0$(p), i, 1)
    IF INSTR(w0$(p), l$) = i THEN
      wd$ = wd$ + l$
     
      IF p = 7 THEN
        IF isWord(wd$) THEN PRINT wd$
      ELSE
        addOn p + 1
      END IF
     
      wd$ = LEFT$(wd$, p - 1)
    END IF
  NEXT
END SUB

FUNCTION isWord (w$)
 n = LEN(w$)
 w1$ = SPACE$(n)
 OPEN "\words\words" + LTRIM$(STR$(n)) + ".txt" FOR BINARY AS #10
 l = LOF(10) / n
 low = 1: high = l
 DO
  mid = INT((low + high) / 2)
  GET #10, (mid - 1) * n + 1, w1$
  IF w1$ = w$ THEN isWord = 1: CLOSE 10: EXIT FUNCTION
  IF w1$ < w$ THEN low = mid + 1:  ELSE high = mid - 1
 LOOP UNTIL low > high
 isWord = 0
 CLOSE 10
END FUNCTION

finds these formable words (I've marked the appropriate antonym manually, with a double asterisk):

moanful
motific
metisse
marital
entitle
toenail
ternate
teenful
traffic
transit
truffle
trundle
trefoil
trenail
taeniae
icefall
incisal
intitle
identic
counsel
cornual
cornute
cotidal
coteaux
coenure
cranial
crenate
creedal
carfare
cariole
careful **
catfall
unrisen
uranite
utensil
ocreate
octette
onanist
ostiole
scandal
scandic
scuffle
souffle
soritic
snaffle
snuffle
sienite
seriate
satiate
standee
striate
strette


  Posted by Charlie on 2013-04-16 15:53:36
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 (3)
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