Найти в данном тексте самое короткое слово - 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, которые являются самым коротким словом и его длиной в данной строке.