Удалить из списка все элементы, меньше заданного х - Lisp
Формулировка задачи:
Решение задачи: «Удалить из списка все элементы, меньше заданного х»
(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.