Lisp 程序产生合同违约

Question

我编写了一个 lisp 程序，它采用 BST 形式的两个参数、一个目标和一个映射。它在 BST 中搜索目标号码，如果找到目标，则打印 (found: path)。如果未找到，则应打印（未找到：目的地），但由于某种原因，我违反了合同。它没有正确地通过我的条件，我已经搞砸了三十分钟。谁能帮忙。

这是我的程序：

(define (robot goal map)
  [code hidden for university honour code purposes]

; Test robot function
(robot 64 '(53 () (64 () ())))
(robot 4 '(53 () (64 () ())))

Answer 1

您在过程 (define (robot map path) ...) 中遗漏了一个案例。如果map 参数是null 会发生什么？像这样修复它：

(define (robot map path)
  (cond ((not (null? map))
         [code hidden for university honour code purposes])
        (else '()))) ; this line was missing!

这与我在回答您上一个问题时提到的完全相同：无论您是遍历列表还是树，始终要考虑的第一个情况是：如果它为空会发生什么？