Word ladder: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}: Marked incorrect.
No edit summary |
(→{{header|Mathematica}} / {{header|Wolfram Language}}: Marked incorrect.) |
||
Line 203:
=={{header|Mathematica}} / {{header|Wolfram Language}}==
{{incorrect|Mathmatica|The requirement is to find the shortest path other examples do John to Jane with 4 intermediate words. Also an impossible example is required: child to adult.}}
<lang Mathematica>db=DeleteDuplicates[RemoveDiacritics[ToLowerCase[Select[DictionaryLookup[],StringLength/*EqualTo[3]]]]];
sel=Select[Subsets[db,{2}],HammingDistance[#[[1]],#[[2]]]==1&];
| |||