【发布时间】:2021-03-13 16:29:08
【问题描述】:
有谁知道为什么我收到此代码的EVAL/APPLY: Too few arguments (1 instead of at least 2) given to INSERTBST 错误,谢谢。
(defun insertbst (E tree)
(cond ((null tree) (list E nil nil))
(( = E (car tree)) tree)
(( < E (car tree))
(list (car tree) (insertbst E (cadr tree))
(caddr tree)))
( t (list (car tree) (cadr tree) (insertbst E (caddr tree))))))
(print(insertbst'(8 (3 (1 () ()) (6 (4 () ())( 7 () ()))) (10 (()) (14 (13) ())))))
【问题讨论】:
-
因为您在调用
INSERTBST函数时提供的参数太少(1 而不是 2)。
标签: lisp common-lisp