Замена элементов после сортировки списка - Lisp

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

Привет всем, Есть неупорядоченный список чисел, нужно его упорядочить и каждую 2 заменить на 5

Решение задачи: «Замена элементов после сортировки списка»

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

(defun task (lst)
 (subst 5 2 (qsort lst)))
 
==> task
 
(task '(1 2 3 1 2 3 1 2 3))
 
==> (1 1 1 5 5 5 3 3 3)
 
(defun task (lst)
 (mapcar #'(lambda (x) (if (= x 2) 5 x)) (qsort lst)))
 
==> task
 
(task '(1 2 3 1 2 3 1 2 3))
 
==> (1 1 1 5 5 5 3 3 3)

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

В первом куске кода функция task принимает в качестве аргумента список lst. Внутри функции происходит сортировка списка lst с помощью функции qsort и замена второго вхождения числа 2 на число 5 с помощью функции subst. Возвращаемое значение функции task — отсортированный и измененный список. Во втором куске кода функция task также принимает в качестве аргумента список lst. Внутри функции сначала происходит сортировка списка lst с помощью функции qsort, а затем с помощью функции mapcar и лямбда-функции происходит замена каждого вхождения числа 2 на число 5. Возвращаемое значение функции task — измененный список. Оба куска кода выполняют одну и ту же задачу — сортировку списка и замену второго вхождения числа 2 на число 5.