Найти в данном тексте самое короткое слово - Lisp

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

найти в данном тексте самое короткое слово.

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

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

(defun shortest-w (txt)
  (let* ((w (strWords txt))
         (l (mapcar #'(lambda (x) (strLen x)) w))
         (min (apply 'min l)))
    (remove-if #'(lambda (x) (> (strLen x) min)) w)))
 
==> shortest-w
 
(shortest-w "Aaa bb sss f qq j")
 
==> ("f" "j")

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

В данном коде представлена функция shortest-w, которая принимает в качестве аргумента строку txt и возвращает два значения: самое короткое слово в строке и его длину. В функции используется встроенная функция strWords, которая разбивает строку на слова и возвращает список слов. Далее, с помощью функции mapcar и анонимной функции, которая принимает слово и возвращает его длину, создаётся список длин всех слов в строке. С помощью функции min находится минимальное значение в списке длин слов. И, наконец, с помощью функции remove-if и анонимной функции, которая возвращает true, если длина слова больше минимального значения, из списка слов удаляются все слова, длина которых больше минимальной. В результате выполнения функции shortest-w с аргументом Aaa bb sss f qq j возвращаются два значения: f и j, которые являются самым коротким словом и его длиной в данной строке.