Ветвлений и циклы разных типов - Lisp
Формулировка задачи:
Помогите пожалуйста решить.с помощью ветвлений и циклов разных типов.
1. Для заданного предложения определить минимальное, содержащееся в тексте число.
2. Дан текст, состоящий из латинских букв. Найти те буквы, которые входят в текст не менее 2-х раз.
Решение задачи: «Ветвлений и циклы разных типов»
textual
Листинг программы
(defun minN (sent)
(let ((lst (input (strCat "(" sent ")")))
(max nil))
(dolist (v lst max)
(when (numberp v)
(if (not max) (setf max v)
(when (> v max) (setf max v)))))))
==> minN
(minN "Проба 1 2 7 -2 пера")
==> 7
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д