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.

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