New in Wolfram Mathematica 6: Exploratory Data Analysis  previous | next 
Find Strings Nearest in Edit Distance
Mathematica 6 supports general nearest-neighbor finding, for data, strings, etc. This shows successive nearest neighbors in an English dictionary.
In[1]:=

Click for copyable input
nf = Nearest[DictionaryLookup[]]; GraphPlot[

 Nest[Flatten[Thread[# -> nf[#, 3]] & /@ (Last /@ #)] &, {"" -> 

    "fish"}, 5], VertexLabeling -> True]
Out[1]=