Подсчет числа заданных букв в строке (HomeLisp) - Lisp

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

здравствуйте можете помочь в написание программы? к примеру сколько букв "а" или букв "б" в тексте

Код к задаче: «Подсчет числа заданных букв в строке (HomeLisp) - Lisp»

textual
(defun cnt (a s) 
  (loop for e across s when (eql e a) count e))
 
> (cnt #\a "aaaaaabbbbb")
6
> (cnt #\b "aaaaaabbbbb")
5

7   голосов, оценка 4.429 из 5


СОХРАНИТЬ ССЫЛКУ