готово, 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-length-word (sentence begin end max word)
    (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)) 0 0 0 nil)) (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.")
(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.")
(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,22 sec