Удалить из данного списка списков все, длина которых больше заданного числа, с помощью REMOVE-IF[-NOT] - Lisp

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

Удалить из данного списка списков все, длина которых больше заданного числа, с помощью REMOVE-IF[-NOT].

Решение задачи: «Удалить из данного списка списков все, длина которых больше заданного числа, с помощью REMOVE-IF[-NOT]»

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

(defun task (lst n)
  (remove-if #'(lambda (x) (> (length x) n)) lst))
 
==> task
 
(task '((1) (1 2) (1 2 3) (1 2 3 4) (5 6) (7 8) nil) 3)
 
==> ((1) (1 2) (1 2 3) (5 6) (7 8) NIL)

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

В коде определена функция с именем task. Она принимает два аргумента: lst — список списков, и n — число. Функция использует функцию remove-if с лямбда-выражением в качестве аргумента. Лямбда-выражение (#'(lambda (x) (> (length x) n))) определяет условие удаления: если длина списка больше n, то список удаляется. В качестве списка для удаления используется lst. Результатом работы функции является новый список без длинных списков. На примере ((1) (1 2) (1 2 3) (1 2 3 4) (5 6) (7 8) nil) и n=3, результатом будет ((1) (1 2) (1 2 3) (5 6) (7 8) nil).