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

@Triglav86 · Регистрация: 13.06.2019

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

Есть код, вроде правильный, но не могу сообразить как его запустить
Помогите пожалуйста

Lisp

(defun full-length (x)
  (cond
    ((null x) 0)
    ((atom x) 1)
    (t (+ 1 (full-length (car x)) (full-length (cdr x))))))

@Catstail · 09.12.2021, 18:55

Сообщение от Triglav86

Есть код, вроде правильный,

- где ты его взял? Он неправильный. Смотри:

Lisp

(defun full-length (x)
  (cond
    ((null x) 0)
    ((atom x) 1)
    (t (+ 1 (full-length (car x)) (full-length (cdr x))))))
 
(full-length '(q w (s d f)))
==> 11 ;; в списке 11 атомов?

Правильно так:

Lisp

(defun full-length (x)
  (cond
    ((null x) 0)
    ((atom x) 1)
    (t (+ (full-length (car x)) (full-length (cdr x))))))
 
(full-length '(q w (s d f)))
==> 5

@Triglav86 · 09.12.2021, 19:20 **[ТС]**

Спасибо! Выручили!

@Triglav86 2 / 2 / 0 Регистрация: 13.06.2019 Сообщений: 66
	09.12.2021, 19:20 [ТС]	3
	Спасибо! Выручили! 0

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

Решение