Подсчет узлов бинарного дерева

@blackbanny · Регистрация: 14.11.2010

Студворк — интернет-сервис помощи студентам

вот код программы:

Lisp

(defun node_counter(tree)
        (cond
                ((null tree) 0)
                (t (+1 (node_counter(second tree)) (node_counter(third tree)) ) ) ) )

ввожу:

Lisp

1	(node_counter(4 (2 (1 nil nil) (3 nil nil)) (5 nil nil)))

и выходит ошибка:

Lisp

1	error: bad function - 4

в чем дело?

@Nameless One · 25.11.2010, 06:49

Ты должен передавать функции список, а ты передаешь ей конструкцию языка, которая должна быть вычислена до непосредственного вызова функции. Т.е. Lisp воспринимает строку "(4 (2 (1 nil nil) (3 nil nil)) (5 nil nil))" не как некоторый многоуровневый список, а как вызов функции 4 (которой, разумеется, быть не может, поэтому и выходит ошибка bad function) с аргументами, тоже должны быть вычислены. Поэтому нужно вызывать так:

Lisp

1	(node_counter '(4 (2 (1 nil nil) (3 nil nil)) (5 nil nil)))

Опции темы