Changeable words

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

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.

Ring

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

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 len > 6
              num = num + 1
              see "" + num + ". " + wordList[n] + " >> " + tempWord + nl
           ok
       next
   next

next

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

working...
Changable words are:
1. aristotelean >> aristotelian
2. aristotelian >> aristotelean
3. claustrophobia >> claustrophobic
4. claustrophobic >> claustrophobia
5. committeeman >> committeemen
6. committeemen >> committeeman
7. committeewoman >> committeewomen
8. committeewomen >> committeewoman
9. complementary >> complimentary
10. complimentary >> complementary
11. confirmation >> conformation
12. conformation >> confirmation
13. congresswoman >> congresswomen
14. congresswomen >> congresswoman
15. councilwoman >> councilwomen
16. councilwomen >> councilwoman
17. craftsperson >> draftsperson
18. draftsperson >> craftsperson
19. eavesdropped >> eavesdropper
20. eavesdropper >> eavesdropped
21. frontiersman >> frontiersmen
22. frontiersmen >> frontiersman
23. handicraftsman >> handicraftsmen
24. handicraftsmen >> handicraftsman
25. incommutable >> incomputable
26. incomputable >> incommutable
27. installation >> instillation
28. instillation >> installation
29. kaleidescope >> kaleidoscope
30. kaleidoscope >> kaleidescope
31. neuroanatomy >> neuroanotomy
32. neuroanotomy >> neuroanatomy
33. newspaperman >> newspapermen
34. newspapermen >> newspaperman
35. nonagenarian >> nonogenarian
36. nonogenarian >> nonagenarian
37. onomatopoeia >> onomatopoeic
38. onomatopoeic >> onomatopoeia
39. philanthrope >> philanthropy
40. philanthropy >> philanthrope
41. prescription >> proscription
42. proscription >> prescription
43. schizophrenia >> schizophrenic
44. schizophrenic >> schizophrenia
45. shakespearean >> shakespearian
46. shakespearian >> shakespearean
47. spectroscope >> spectroscopy
48. spectroscopy >> spectroscope
49. underclassman >> underclassmen
50. underclassmen >> underclassman
51. upperclassman >> upperclassmen
52. upperclassmen >> upperclassman
done...