В списке есть вложенные списки,если все числа во вложенном списке положительные,то вывести сумму этих чисел - Lisp
Формулировка задачи:
есть список ,в нём вложенные подсписки,если во вложенном подсписке все элементы положительные то вывести сумму этих чисел.Например
(list 1 2 -1 (3 4 5) -3 4 5)
Ответ: (1 2 -1 (12) -3 4 5)
Решение задачи: «В списке есть вложенные списки,если все числа во вложенном списке положительные,то вывести сумму этих чисел»
textual
Листинг программы
- (defun task (lst)
- (mapcar #'(lambda (x)
- (cond ((atom x) x)
- ((and (atomlist x)(apply '< x)) (list (apply '+ x)))
- (t (task x)))) lst))
- ==> task
- (task '(1 2 -1 (3 4 5) -3 4 5))
- ==> (1 2 -1 (12) -3 4 5)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
