riverdusty / SXSoundEx

A SXSoundEx is an implementation of the SoundEx Algorithm. Simply send a string to SXSoundEx on: aString. To get results, get a word list and iterate over it adding each word to its respective SoundEx code.
Eg:

 
|aDict wordList|
"wordList is a list of words"
aDict := Dictionary new.
wordList := { 'apple'. 'carrot'. 'banana'. 'bann'. 'lemon' }.
wordList do: [ :each |
    (aDict at: (SXSoundEx on:each) ifAbsentPut: [Set new]) add: each ].
aDict inspect.
(aDict at: (SXSoundEx on: 'banana')) inspect.

If you would like a Fuel dump of a dictionary created as above with ^noteall the english words in it, please let me know by email and I can send to you.
_{*by all, I mean all the words provided by wordnet}