Определить функцию переставляющую элементы списка L таким образом, чтобы одинаковые элементы оказались рядом - Lisp

Формулировка задачи:

Переставляющую элементы списка L таким образом, чтобы одинаковые элементы оказались рядом. Например, L = (1 2 1 4 3 1 2 4) –> (1 1 1 2 2 4 4 3).

Решение задачи: «Определить функцию переставляющую элементы списка L таким образом, чтобы одинаковые элементы оказались рядом»

Листинг программы

(defun F (l)
    (cond
        ((null l) nil)
        (t (append (remove-if-not #'(lambda (x) (equal (car l) x)) l)
            (F (remove (car l) l))))))
 
(F '(1 2 1 4 3 1 2 4)) ==> (1 1 1 2 2 4 4 3)
(F '(a s d f a s d f g h g)) ==> (a a s s d d f f g g h)

Объяснение кода листинга программы

В данном коде определена функция F, которая принимает в качестве аргумента список l. Если список пустой, то возвращается nil. В противном случае, функция удаляет из списка все элементы, которые не равны первому элементу списка (т.е. оставляет только уникальные элементы), затем рекурсивно вызывает себя с оставшимся списком (без первого элемента), и в конце добавляет первый элемент в начало нового списка. Поэтому, если мы применим функцию F к списку '(1 2 1 4 3 1 2 4), то получим список (1 1 1 2 2 4 4 3), а если к списку '(a s d f a s d f g h g), то получим список (a a s s d d f f g g h).