Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=341697&view=findpost&p=3002894 Fri, 07 Oct 2011 11:25:23 +0000 LISP https://forum.sources.ru/index.php?showtopic=341697&view=findpost&p=3002894
    (setf a (delete-elem 2 (cdr (car a))))
]]> korvin Lisp https://forum.sources.ru/index.php?showtopic=341697&view=findpost&p=2998377 Sat, 01 Oct 2011 12:33:18 +0000 LISP https://forum.sources.ru/index.php?showtopic=341697&view=findpost&p=2998377 список а имеет структуру ((1 2 3) (3 2 1))

Есть функция
    (DEFUN DEL_ELEM (obj lst)
    ((NULL lst) NIL)
    ((EQL obj (CAR lst)) (CDR lst))
    (CONS (CAR lst)
    (DEL_ELEM obj (CDR lst)))
    )

Хочу удалить 2 с первого подсписка, начиная с второго элемента

(DELETE_ELEM 2 (cdr(car a))

Результат
(3) - функция удаления работает нормально

Но список а не поменялся. Как сохранить изменения в а? Должно быть ((1 3) (3 2 1))]]> BODYA Lisp