16 lines
747 B
Text
16 lines
747 B
Text
|
db=DeleteDuplicates[RemoveDiacritics[ToLowerCase[Select[DictionaryLookup[],StringLength/*EqualTo[3]]]]];
|
||
|
|
sel=Select[Subsets[db,{2}],HammingDistance[#[[1]],#[[2]]]==1&];
|
||
|
|
g=Graph[db,UndirectedEdge@@@sel];
|
||
|
|
FindShortestPath[g,"boy","man"]
|
||
|
|
|
||
|
|
db=DeleteDuplicates[RemoveDiacritics[ToLowerCase[Select[DictionaryLookup[],StringLength/*EqualTo[4]]]]];
|
||
|
|
sel=Select[Subsets[db,{2}],HammingDistance[#[[1]],#[[2]]]==1&];
|
||
|
|
g=Graph[db,UndirectedEdge@@@sel];
|
||
|
|
FindShortestPath[g,"girl","lady"]
|
||
|
|
FindShortestPath[g,"john","jane"]
|
||
|
|
|
||
|
|
db=DeleteDuplicates[RemoveDiacritics[ToLowerCase[Select[DictionaryLookup[],StringLength/*EqualTo[5]]]]];
|
||
|
|
sel=Select[Subsets[db,{2}],HammingDistance[#[[1]],#[[2]]]==1&];
|
||
|
|
g=Graph[db,UndirectedEdge@@@sel];
|
||
|
|
FindShortestPath[g,"child","adult"]
|