я думаю, что надо использовать функцию pairlis и
Код
(defun add (x y al)
(cond ((null al) nil)
(t (acons x y (car al)
(add (cdr al))))))
(add b u al)
(cond ((null al) nil)
(t (acons x y (car al)
(add (cdr al))))))
(add b u al)
как-то так, но как всязать все эти функции пока не знаю... может кто поможет?
Сообщение отредактировано: Jerry -