task1, Common Lisp

Language: Layout:

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

#| Найти позицию символа sym в строке str, начиная с позиции from-where|#
(defun find-sym (str from-where sym)
    (let (len))
    (setf len (- (length str) 1))
    (loop
         for i from from-where to len  
         when (eql (elt str i) sym)
         return i
     )
)

#| Список позиций символа sym в строке str|#
(defun make-a-list-of-positions (str sym)
    (let (p))
    (setf p 0)
    (let (len))
    (setf len (length str))
    (loop while (find-sym str p sym)
          while (< p len)
      collect (find-sym str p sym)
          do (setf p (+ 1 (find-sym str p sym))))
 )

#| Список предложений|#
(defun make-a-list-of-sentences (str)
    (let (begin))
    (setf begin 0)
    (let (positions))
    (setf positions (make-a-list-of-positions str #\.))
    (let (count))
    (setf count  (- (length positions) 1))

(loop for i from 0 to count
          collect (subseq str begin (nth i positions))
          do (setf begin (+ 2 (nth i positions)) ))
     )

#| Количество слов в предложении|#
(defun count-words (sentence) 
     (let (len))
    (setf len (- (length sentence) 1))
    (let (count))
    (setf count (loop for i from 0 to len count (eql (elt sentence i) #\SPACE) 
     ))
    (incf count)
 )

#| Количество слов в каждом предложении|#
(defun count-words-for-each-sentence (sentences)
    (loop for sentence in sentences 
          collect (list sentence (count-words sentence))
     )
)

#| Предложение с мксимальным количеством слов|#
(defun max-words (sentences-count) 
    (let (max))
    (setf max 0)
    (let (sentence))
        (loop for elem in sentences-count
              if (< max (second elem))
              do (setf max (second elem))
              do (setf sentence (first elem))
         )
    (list sentence max)
)

#| Самое длинное слово в предложении|#
(defun max-len-word (sentence)
    (setf sentence (concatenate 'string sentence " "))
    (let (begin))
    (setf begin 0)
    (let (count))
    (setf count (- (length sentence) 1))
    (let (max))
    (setf max 0)
    (let (len))
    (setf len 0)
    (let (word))
    (loop for i from 0 to count
          if (eql (elt sentence i) #\SPACE)
                     when (< max len)   
                            do (setf max len) and
                             do (setf word (subseq sentence begin  i ))
                          end and
                         do (setf begin (+ i 1)) and
                         do (setf len 0)
                 else do (incf len)    
     )
    word
)

#| Список самых длинных слов|#
(defun list-of-max-len-words (sentences)
    (loop
     for s in sentences collect (max-len-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.")

(let (sentences))
(setf sentences (make-a-list-of-sentences TEXT))
(print "Список предложений: ")
(print sentences)
(print "------------------------------------------------------------------")
(print "Количество слов в каждом предложении: ")
(print (count-words-for-each-sentence sentences))
(print "------------------------------------------------------------------")
(print "Предложение с максимальным количеством слов: ")
(print (max-words (count-words-for-each-sentence sentences)))
(print "------------------------------------------------------------------")
(print "Список самых длинных слов: ")
(print (list-of-max-len-words  sentences))

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