Наиболее часто встречаемое слово - Lisp

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

Для текстового файла определить самое часто встречающееся слово Помогите пожалуйста написать программу на Common Lisp

Код к задаче: «Наиболее часто встречаемое слово - Lisp»

textual
(defun abundant-word (s)
  (word-max (string-list s)))
 
(defun word-max (w
                 &aux
                 (v (remove-duplicates w))
                 (m (loop for a in v maximize (count a w))))
  (loop for a in v when (= (count a w) m) collect a))
 
(defun string-list (s) 
  (read-from-string
   (concatenate
    'string "(" (delete-if-not #'(lambda (x)
                                   (or (alpha-char-p x)
                                       (equal x #\space)
                                       (equal x #\-)))
                               s) ")")))
 
> (abundant-word "aaa aaa bbb bbb ccc")
(AAA BBB)

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


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