Определить количество вершин в дереве

@HexRuin · Регистрация: 08.12.2021

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

Добрый день!
Помогите, пожалуйста, написать программу на языке LISP
Подсчитать количество вершин дерева, если оно задается вот так -> (1 (2 (3 4) 5 (6 NIL)))

@Catstail · 08.12.2021, 16:15

Lisp

(defun counter (tree)
  (cond ((null tree) 0)
        ((atom tree) 1)
        (t (+ (counter (car tree)) (counter (cdr tree))))))
 
(counter '(1 (2 (3 4) 5 (6 NIL))))
==> 6

@HexRuin 0 / 0 / 0 Регистрация: 08.12.2021 Сообщений: 1
		1
	Определить количество вершин в дереве 08.12.2021, 15:51. Показов 710. Ответов 1 Метки lisp (Все метки) Добрый день! Помогите, пожалуйста, написать программу на языке LISP Подсчитать количество вершин дерева, если оно задается вот так -> (1 (2 (3 4) 5 (6 NIL))) 0

	08.12.2021, 16:15

Определить количество вершин в дереве

Решение