搜索答案
让我们用 Wolfram 语言解答这个逻辑谜题。...选项替换] =!...搜索[现答案_, _, {}] := Throw[现答案];
搜索[现答案_, {新题号_, 剩余题目___}, 待查题目_] := Module[
{新答案 = 现答案, 结果},
(...,方便我们把原有的检查函数屏蔽掉,把第 10 题替换成第 1 题的形式:
终极检查[10, 答案_] := If[已作答[10, 答案], True, Indeterminate];
终极检查[n_,..._, _, {}] := {现答案};
终极搜索[现答案_, {新题号_, 剩余题目___}, 待查题目_] := Module[
{新答案 = 现答案, 结果},
Catch[Fold[Function