Changeable words

From Rosetta Code
Changeable words is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

In the list change one letter in word and if new word occur in list then display on this page.
Length of word > 11

Ring

<lang ring> cStr = read("unixdict.txt") wordList = str2list(cStr) num = 0 oldWord = "abc"

ln = len(wordList) for n = ln to 1 step -1

   if len(wordList[n]) < 12
      del(wordList,n)
   ok

next

see "working..." + nl see "Changable words are:" + nl

for n = 1 to len(wordList)

   len = len(wordList[n])
   for m = 1 to len
       abcList = "abcdefghijklmnopqrstuvwxyz"
       for abc in abcList
           str1 = left(wordList[n],m-1)
           str2 = abc
           str3 = right(wordList[n],len-m)
           tempWord = str1 + str2 + str3
           ind = find(wordList,tempWord) 
           bool = (ind > 0) and (wordList[n][m] != abc)
           if bool = 1 and wordList[n] != oldWord
              num = num + 1
              oldWord = tempWord
              see "" + num + ". " + wordList[n] + " >> " + tempWord + nl
           ok
       next
   next

next

see "done..." + nl </lang> Output:

working...
Changable words are:
1. aristotelean >> aristotelian
2. claustrophobia >> claustrophobic
3. committeeman >> committeemen
4. committeewoman >> committeewomen
5. complementary >> complimentary
6. confirmation >> conformation
7. congresswoman >> congresswomen
8. councilwoman >> councilwomen
9. craftsperson >> draftsperson
10. eavesdropped >> eavesdropper
11. frontiersman >> frontiersmen
12. handicraftsman >> handicraftsmen
13. incommutable >> incomputable
14. installation >> instillation
15. kaleidescope >> kaleidoscope
16. neuroanatomy >> neuroanotomy
17. newspaperman >> newspapermen
18. nonagenarian >> nonogenarian
19. onomatopoeia >> onomatopoeic
20. philanthrope >> philanthropy
21. prescription >> proscription
22. schizophrenia >> schizophrenic
23. shakespearean >> shakespearian
24. spectroscope >> spectroscopy
25. underclassman >> underclassmen
26. upperclassman >> upperclassmen
done...