Очистка списка от повторяющихся атомов - Lisp
Формулировка задачи:
Построить рекурсивную функцию средствами элементарного лиспа, которая принимает список. И возвращает список входящих в него атомов без повторений.
Пример:
>(pars '(4 6 3 8 5 3 1 4 8)) ==>(4 6 3 8 5 1)
Решение задачи: «Очистка списка от повторяющихся атомов»
textual
Листинг программы
(defun pars (m acc) (cond ((null m) (reverse acc)) ((member (car m) acc) (pars (cdr m) acc)) (t (pars (cdr m) (cons (car m) acc))))) (defun parss (m) (pars m nil)) > (parss '(1 3 2 1 2)) (1 3 2)