Удалить из списка все элементы, меньше заданного х - Lisp

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

удалить из списка все элементы, меньше заданного х. например дано (3 6 8 3 5 6), х=5, получить (6 8 6).

Решение задачи: «Удалить из списка все элементы, меньше заданного х»

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

(defun del-less (lst x)
  (if (null lst) nil 
      (if (< (car lst) x) (del-less (cdr lst) x)
                          (cons (car lst) (del-less (cdr lst) x)))))  
 
==> del-less
 
(del-less '(3 6 8 3 5 6) 5)
 
==> (6 8 5 6)
 
;; или
 
(defun del-less (lst x)
  (remove-if #'(lambda (y) (< y x)) lst))
 
==> del-less
 
(del-less '(3 6 8 3 5 6) 5)
 
==> (6 8 5 6)

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

В обоих представленных фрагментах кода определена функция del-less, которая принимает два аргумента: список lst и число x. В первом фрагменте кода реализован рекурсивный алгоритм удаления из списка всех элементов, меньших заданного числа x. Вспомогательная функция del-less вызывается рекурсивно для списка cdr, пока не будет достигнуто условие окончания рекурсии (список lst не станет nil). Если текущий элемент списка lst меньше x, то рекурсивный вызов del-less происходит для списка cdr и аргументом x. В противном случае, если текущий элемент списка lst больше или равен x, то он добавляется в начало нового списка, который возвращается в качестве результата. Во втором фрагменте кода используется встроенная функция remove-if, которая принимает список и предикат, и возвращает новый список, содержащий только те элементы исходного списка, для которых предикат возвращает nil. В качестве предиката используется анонимная функция, которая проверяет, является ли элемент списка y меньше x. Если это условие выполняется, то возвращается nil, иначе возвращается сам элемент. Таким образом, в обоих случаях результатом выполнения функции del-less для списка lst и числа x будет новый список, в котором удалены все элементы, меньшие x.