предложение с максимальным количеством слов, Common Lisp

Language: Layout:

;gnu clisp  2.49.60
;Задан текст, состоящий из символов. Текст содержит предложения. Признаком конца предложения является точка. 
;Построить список предложений. Для каждого предложения посчитать количество слов (слова отделяются пробелом). 
;Найти предложение, число слов в котором наибольшее. Найти в каждом предложении слово максимальной длины и построить список таких слов.

;Построить список предложений.
(defun list-of-sentences (text)
    
   (walk-across-text text 0 0 0)

)

(defun walk-across-text (text begin end count)
    (cond
        ((>= end (length text)) nil) ;конец списка - выход из рекурсии
        ((eql (elt text end) #\.) (cons (list (subseq text begin (+ 1 end)) (+ count 1)) (walk-across-text text (+ end 2) (+ end 2) 0))) ;добавить предложение в список
        ((eql (elt text end) #\space) (walk-across-text text begin (+ end 1) (+ count 1))) ;увеличить количество слов
        (t (walk-across-text text begin (+ end 1) count)) ;продолжить обход
        )
    )

;Найти предложение, число слов в котором наибольшее.
(defun max-count-words (sentences)
    (find-max-count-words sentences 0 nil)
    )

(defun find-max-count-words (sentences max sentence)
    (cond
        ((null sentences) (list sentence max)) ;если конец списка, выход
        ((>= max (second (first sentences))) (find-max-count-words (rest sentences) max sentence)) ;продолжаем обход
        (t (find-max-count-words (rest sentences) (second (first sentences)) (first (first sentences)))) ;новый максимум
        )
    )

(defun max-word (sentence)
    (setf sentence (concatenate 'string sentence " "))
    (let (max)) (setf max 0)
    (let (pos)) (setf pos 0)
    (let (count)) (setf count (- (length sentence) 1))
    (let(len)) (setf len 0)
    (let (word))
    (loop while (< pos count)     
          do (setf len (- (position  #\SPACE sentence :start (+ 1 pos)) pos))
          if (> len max)
              do (setf max len) and
              do (setf word (subseq sentence (+ 1 pos)  (position  #\SPACE sentence :start (+ 1 pos)) ))  
          do (setf pos (position  #\SPACE sentence :start (+ 1 pos)))
          finally (return (list word max))
          )
    )

;Найти в каждом предложении слово максимальной длины и построить список таких слов.
(defun max-words-list (sentences)
    (loop for s in sentences collect (max-word s))
    )

#| Заданный текст
(let (text))
(setf text "I asked if your wife fully understood what you would be taking on here. And your son is also extraordinary. Ullman stood up and went to the file cabinet in the corner. He brought back five large sheets and set them down on the glossy walnut plane of the desk. Ullman whisked away the attic floor plan and put it on the bottom of the pile.")
(print text)
(let (sentences)) (setf sentences (list-of-sentences text))
(print "_______________________________________________________________")
(print "Список предложений и количество слов в них: ")
(print (count-words  sentences))
(print "_______________________________________________________________")
(print "Предложение с максимальным количеством слов: ")
(print (max-count-words  sentences))
(print "_______________________________________________________________")
(print "Самые длинные слова: ")
(print (max-words-list sentences))
|#
(let (text))
(setf text "I asked if your wife fully understood what you would be taking on here. And your son is also extraordinary. Ullman stood up and went to the file cabinet in the corner. He brought back five large sheets and set them down on the glossy walnut plane of the desk. Ullman whisked away the attic floor plan and put it on the bottom of the pile.")

(print (max-count-words (list-of-sentences text)))

[ + ] Show input
Absolute running time: 0.15 sec, cpu time: 0.02 sec, memory peak: 9 Mb, absolute service time: 0,27 sec