尝试在 Scheme 中使用二叉树制作电话簿时出错

Question

1. 编写一个函数（make-phone-book name number left right），它接受一个名字、一个电话号码和左右子树，并创建一个新的电话簿树。您的树节点应采用 ((name . phone-number) left-tree right-tree) 形式，其中 name 和 phone-number 是一对。

   我明白了：

   (define (make-phone-book name number left right)
   (list (cons name number) left right))
   

2. 编写函数 get-name、get-number、get-left 和 get-right，它们会从给定的电话簿中返回适当的数据。

   我明白了：

   (define (get-name book)(caar book))
   (define (get-number book)(cdar book))
   (define (get-left book)(cadr book))
   (define (get-right book)(cddr book))
   

3. 编写一个函数（插入电话簿名称号码），将新条目插入电话簿。您可以使用内置函数'string=? ' , '字符串>? ' 和 ' 字符串

   (define (insert book name number)
   (cond
   ((null? name) make-phone-book name number '() '())
   ((string=? (get-name book) name) book)
   ((string<? (get-name book) name) (make-phone-book name number
                                        (insert (get-left book) name number)
                                        (get-right book)))
   ((string>? (get-name book) name) (make-phone-book name number
                                        (get-left book)
                                        (insert (get-right book) name
   number)))))
   

它给出了错误：

caar: contract violation
  expected: (cons/c pair? any/c)
  given: '("Harry" 5550011)

Answer 1

有几个小错误。

1. (null? name) 应该是 (null? book)。
2. 在同样的情况下，您忘记将结果表达式括起来：(make-phone-book name number '() '())
3. 递归时，应将(get-name book) 和(get-number book) 传递给make-phone-book，而不是name 和number。

测试时，仅使用make-phone-book 和insert 创建树。
不要手写树。