СибГУТИ Лабораторная 1 Функциональное и логическое программирование скачать бесплатно
Задание
Объедините 2 списка L1 и L2 в один, чередуя элементы списков.
Например, при L1=(1 2 3 4 5 6 7 8), L2=(a s d f) функция должна вернуть
(1 a 2 s 3 d 4 f 5 6 7 8).
Текст программы
(defun mrg(L1 L2)
(cond ((eq L1 nil) L2)
((eq L2 nil) L1)
(t (cons (car L1) (cons (car L2) (mrg (cdr L1) (cdr L2)))))))
(print (mrg '(1 2 3 4 5 6 7 8) '(a s d f)))
Результаты работы программы
