1

我在编写一个遍历二叉树的函数时遇到问题，该函数接受 search_term、list 并返回 true 或 false。这就是我所拥有的，这与我在谷歌搜索如何在 Scheme 中实现二进制搜索时发现的基本相同。

(define (tree-lookup val tree)
  (if (empty-tree? tree) 
      #f
  (let ((curr-val (node-value tree))
    (left (node-left tree))
    (right (node-right tree)))
    (cond ((equal? val curr-val) #t)
      ((< val curr-val))
       (tree-lookup val left)
      (else
       (tree-lookup val right))))))

(define tree-test '(((1 2) 3)(4 (5 6)) 7 (8 9 10)))  ; Test tree

当它试图将“val”变量与节点进行比较时，问题就来了。这意味着我将实数与列表进行比较，例如 (< 2 '((1 2) 3))。我尝试只测试原子值，但是当我到达一片叶子时，我被困在如何回到树上。

这是错误消息：

  <: contract violation
  expected: real?
  given: '{{1 2} 3}
  argument position: 2nd
  other arguments...:
  8
4

1 回答 1

2

乍一看，程序看起来不错。我怀疑问题出在node-value,node-left和node-right过程中，或者在您构建树的方式中 - 对于初学者来说，问题中提供的示例树对我来说似乎不合适。

想想看，错误信息表明<操作符被应用到了 list '{{1 2} 3}，这意味着它curr-val是一个列表，但它应该是一个值。

于 2012-08-23T01:13:55.503 回答