1rec, Common Lisp - rextester

Language: Layout:

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

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

;Найти предложение, число слов в котором наибольшее.
(defun max-count-words (sentences &optional (max 0) (sentence nil))
    (cond
        ((null sentences) (list sentence max)) ;если конец списка, выход
        ((>= max (second (first sentences))) (max-count-words (rest sentences) max sentence)) ;продолжаем обход
        (t (max-count-words (rest sentences) (second (first sentences)) (first (first sentences)))) ;новый максимум
        )
    )

(defun max-length-word (sentence &optional (begin 0) (end 0) (max 0) (word nil))
    (cond
        ((>= end (length sentence))  (list word max))
        ((or (eql (elt sentence end) #\space) (eql (elt sentence end) #\.)) 
              (cond
                  ((> (- end begin) max) (max-length-word sentence (+ end 1) (+ end 1) (- end begin) (subseq sentence begin end)))
                  (t (max-length-word sentence (+ end 1) (+ end 1) max word))
                  ) 
         )
        (t (max-length-word sentence begin (+ end 1) max word))
        )
    )

;Найти в каждом предложении слово максимальной длины и построить список таких слов.
(defun max-words-list (sentences)
      (if (not (null sentences))
        (cons (list (max-length-word (first (first sentences)) )) (max-words-list (rest 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.")
(let (sentences)) (setf sentences (list-of-sentences text))
(print "Список предложений")
(print sentences)
(print "Предложение с максимальным количеством слов")
(print (max-count-words sentences))
(print "Список самых длинных слов")
(print (max-words-list sentences))

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