Напишите функцию (fullength x) считающую полное количество атомов (не равных nil) в списке x. Бесплатный доступ к решению задач

Реферат.Справочник
Решенные задачи по программированию
Напишите функцию (fullength x) считающую полное количество атомов (не равных nil) в списке x

Напишите функцию (fullength x) считающую полное количество атомов (не равных nil) в списке x .pdf

Зарегистрируйся в 2 клика в Кампус и получи неограниченный доступ к материалам с подпиской Кампус+ 🔥

Условие

Напишите функцию (fullength x), считающую полное количество атомов (не равных nil) в списке x.

Решение

Потяни, чтобы посмотреть

(defun fullength(x)
(setq n 0)
(labels ((full (s m)
(cond ((not(atom (car s))) (full (car s) m))
((and (null (car s)) (not (null (cdr s)))) (full (car s) m))
(t (setq m (+ m 1))))
(full (cdr s ) m)))
(full x n))
(n)
)
Счетчик атомов n устанавливается в 0.
Создается локальная функция full . Данная функция проверяет список

50% задачи недоступно для прочтения

Переходи в Кампус, регистрируйся и получай полное решение

Получить задачу