经典的单词梯(word-ladder)问题。

各位看官日后看到这种问题直接上Mathematica。

给出的答案是六次变换： Shortest ladder length = 6 steps Path 1: four , tour , torr , tore , fore , fire , five代码如下，首先，加载词典： nWords[n_] := nWords[n] = DeleteCases[ Cases[WordData[], w_String /; StringLength[w] == n && StringMatchQ[w, RegularExpression["[a-z]+"]] && Length[WordData[w, "Definitions"]] > 0], "-Red…。