Файлы: Написать программу вывода причастий в порядке их встречаемости в заданном тексте

d:/text.txt:
aaaa bbbb cccc dddd
eeee ffff gggg aaaa
bbbb hhhh iiii aaaa
aaaa bbbb cccc
 
d:/dict.txt:
aaaa bbbb
cccc
 
(defun sw (s)
  (read-from-string (concatenate 'string "(" s ")")))
 
(defun count-dictionary (pt pd &aux text dict) 
  (with-open-file (s pd :direction :input)
    (do ((line (read-line s nil :eof)(read-line s nil :eof))) 
        ((eql line :eof))
      (setf dict (nconc dict (sw line)))))
  (with-open-file (s pt :direction :input)
    (do ((line (read-line s nil :eof)(read-line s nil :eof))) 
        ((eql line :eof))
      (setf text (nconc text (sw line)))))
  (let ((m (length text)))
    (loop for a in dict
          collect (list a (float (/ (count a text) m))))))
 
> (count-dictionary "d:/text.txt" "d:/dict.txt")
((AAAA 0.26666668) (BBBB 0.2) (CCCC 0.13333334))

...

(defun load-dict (dnam)
  (filOpen 'fi dnam _INPUT)
  (let ((dict nil))
       (prog1
          (loop
           (when (filEOF 'fi) (return (remove nil dict)))
           (push (input (filGetLine 'fi)) dict))
          (filClose 'fi))))
          
(defun check-word (word dict)
  (iter (for node in dict)
    (let ((res (iter (for w in node) (when (eq w word) (return (car node))))))
         (when res (return res)))))
 
(defun task ()
  (let ((dict (load-dict "dict.txt"))
        (res  nil)
        (sent (progn (printsline "Введите фразу в скобках") (read))))
        (dolist (w sent res)
         (let ((c (check-word w dict)))
              (when c (let ((p (assoc c res)))
                           (if (null p) 
                               (push (cons c 1) res)
                               (rplacd p (+ 1 (cdr p))))))))))

Введите фразу в скобках
(Посадил дед репку выросла репка большая-пребольшая Дедка за репку Бабка за дедку и т.д.)
 
==> ((бабка . 1) (дедка . 2) (репка . 3) (дед . 1))

d:/text.txt:
aaaa bbbb cccc dddd
eeee ffff gggg aaaa
bbbb hhhh iiii aaaa
aaaa bbbb cccc aaa1
bbb2 ccc1 aaa2
d:/dict.txt:
aaaa aaa1 aaa2
bbbb bbb1 bbb2
cccc ccc1 ccc2
(defun sw (s)
  (read-from-string (concatenate 'string "(" s ")")))
 
(defun count-dictionary (pt pd &aux text dict) 
  (with-open-file (s pd :direction :input)
    (do ((line (read-line s nil :eof)(read-line s nil :eof))) 
        ((eql line :eof))
      (setf dict (cons (sw line) dict))))
  (with-open-file (s pt :direction :input)
    (do ((line (read-line s nil :eof)(read-line s nil :eof))) 
        ((eql line :eof))
      (setf text (nconc text (sw line)))))
  (let ((m (length text)))
    (loop for a in (reverse dict)
          collect (list (car a)
                        (float (/ (loop for e in a
                                        sum (count e text))
                                  m))))))
 
> (count-dictionary "d:/text.txt" "d:/dict.txt")
((AAAA 0.31578946) (BBBB 0.21052632) (CCCC 0.15789473))