;; Словарь окончаний: последние 3 буквы -> номер семантического эквивалента
(defparameter *dict*
  '(("ами" . 1)    ; существительные творительный падеж, мн.число
    ("ать" . 2)    ; глаголы 1 спряжение
    ("его" . 3)    ; прилагательные родительный падеж, муж. и ср.род
    ("еми" . 4)    ; существительные творительный падеж, мн.число
    ("ему" . 5)    ; прилагательные дательный падеж, муж. и ср.род 
    ("емя" . 6)    ; существительные родительный падеж, ед.число
    ("ете" . 7)    ; глаголы 1 спряжение
    ("ешь" . 8)    ; глаголы 1 спряжение 
    ("ими" . 9)    ; прилагательные творительный падеж, мн.число
    ("ить" . 10)   ; глаголы 2 спряжения
    ("ишь" . 11)   ; глаголы 2 спряжение
    ("ого" . 12)   ; прилагательные родительный падеж, муж. и ср.род
    ("ому" . 13)   ; прилагательные дательный падеж, муж. и ср.род 
    ("ыми" . 14)   ; прилагательные творительный падеж, мн число
    ("ышь" . 15)   ; глаголы 1 спряжение
    ("ями" . 16)   ; существительные творительный падеж, мн.число
    ("ять" . 17))) ; глаголы 1 спряжение
 
;; Получить последние 3 символа слова
(defun last-three (word)
  (if (>= (length word) 3)
      (subseq word (- (length word) 3))
      nil))
 
;; Разбиение строки на слова
(defun split-string (str)
  (let ((words nil) (current nil))
    (dotimes (i (length str))
      (let ((ch (char str i)))
        (if (char= ch #\Space)
            (when current
              (push (coerce (reverse current) 'string) words)
              (setf current nil))
            (push ch current))))
    (when current
      (push (coerce (reverse current) 'string) words))
    (reverse words)))
 
;; Заменить слово на номер, если слово >= 3 букв и найдено в словаре
(defun replace-word (word)
  (let ((ending (last-three word)))
    (if ending
        (let ((found (assoc ending *dict* :test #'string=)))
          (if found (cdr found) word))
        word)))
 
;; Главная функция с использованием MAPCAR
(defun process-text (text)
  (mapcar #'replace-word (split-string text)))
 
;; Тест
(print (process-text "говорить то что думаешь"))
(print (process-text "клетка с волнистыми попугаями"))
(print (process-text "завтракаете с серебряными подстаканниками"))
(print (process-text "счастливого нового года"))
 

Ozsg0KHQu9C+0LLQsNGA0Ywg0L7QutC+0L3Rh9Cw0L3QuNC5OiDQv9C+0YHQu9C10LTQvdC40LUgMyDQsdGD0LrQstGLIC0+INC90L7QvNC10YAg0YHQtdC80LDQvdGC0LjRh9C10YHQutC+0LPQviDRjdC60LLQuNCy0LDQu9C10L3RgtCwCihkZWZwYXJhbWV0ZXIgKmRpY3QqCiAgJygoItCw0LzQuCIgLiAxKSAgICA7INGB0YPRidC10YHRgtCy0LjRgtC10LvRjNC90YvQtSDRgtCy0L7RgNC40YLQtdC70YzQvdGL0Lkg0L/QsNC00LXQtiwg0LzQvS7Rh9C40YHQu9C+CiAgICAoItCw0YLRjCIgLiAyKSAgICA7INCz0LvQsNCz0L7Qu9GLIDEg0YHQv9GA0Y/QttC10L3QuNC1CiAgICAoItC10LPQviIgLiAzKSAgICA7INC/0YDQuNC70LDQs9Cw0YLQtdC70YzQvdGL0LUg0YDQvtC00LjRgtC10LvRjNC90YvQuSDQv9Cw0LTQtdC2LCDQvNGD0LYuINC4INGB0YAu0YDQvtC0CiAgICAoItC10LzQuCIgLiA0KSAgICA7INGB0YPRidC10YHRgtCy0LjRgtC10LvRjNC90YvQtSDRgtCy0L7RgNC40YLQtdC70YzQvdGL0Lkg0L/QsNC00LXQtiwg0LzQvS7Rh9C40YHQu9C+CiAgICAoItC10LzRgyIgLiA1KSAgICA7INC/0YDQuNC70LDQs9Cw0YLQtdC70YzQvdGL0LUg0LTQsNGC0LXQu9GM0L3Ri9C5INC/0LDQtNC10LYsINC80YPQti4g0Lgg0YHRgC7RgNC+0LQgCiAgICAoItC10LzRjyIgLiA2KSAgICA7INGB0YPRidC10YHRgtCy0LjRgtC10LvRjNC90YvQtSDRgNC+0LTQuNGC0LXQu9GM0L3Ri9C5INC/0LDQtNC10LYsINC10LQu0YfQuNGB0LvQvgogICAgKCLQtdGC0LUiIC4gNykgICAgOyDQs9C70LDQs9C+0LvRiyAxINGB0L/RgNGP0LbQtdC90LjQtQogICAgKCLQtdGI0YwiIC4gOCkgICAgOyDQs9C70LDQs9C+0LvRiyAxINGB0L/RgNGP0LbQtdC90LjQtSAKICAgICgi0LjQvNC4IiAuIDkpICAgIDsg0L/RgNC40LvQsNCz0LDRgtC10LvRjNC90YvQtSDRgtCy0L7RgNC40YLQtdC70YzQvdGL0Lkg0L/QsNC00LXQtiwg0LzQvS7Rh9C40YHQu9C+CiAgICAoItC40YLRjCIgLiAxMCkgICA7INCz0LvQsNCz0L7Qu9GLIDIg0YHQv9GA0Y/QttC10L3QuNGPCiAgICAoItC40YjRjCIgLiAxMSkgICA7INCz0LvQsNCz0L7Qu9GLIDIg0YHQv9GA0Y/QttC10L3QuNC1CiAgICAoItC+0LPQviIgLiAxMikgICA7INC/0YDQuNC70LDQs9Cw0YLQtdC70YzQvdGL0LUg0YDQvtC00LjRgtC10LvRjNC90YvQuSDQv9Cw0LTQtdC2LCDQvNGD0LYuINC4INGB0YAu0YDQvtC0CiAgICAoItC+0LzRgyIgLiAxMykgICA7INC/0YDQuNC70LDQs9Cw0YLQtdC70YzQvdGL0LUg0LTQsNGC0LXQu9GM0L3Ri9C5INC/0LDQtNC10LYsINC80YPQti4g0Lgg0YHRgC7RgNC+0LQgCiAgICAoItGL0LzQuCIgLiAxNCkgICA7INC/0YDQuNC70LDQs9Cw0YLQtdC70YzQvdGL0LUg0YLQstC+0YDQuNGC0LXQu9GM0L3Ri9C5INC/0LDQtNC10LYsINC80L0g0YfQuNGB0LvQvgogICAgKCLRi9GI0YwiIC4gMTUpICAgOyDQs9C70LDQs9C+0LvRiyAxINGB0L/RgNGP0LbQtdC90LjQtQogICAgKCLRj9C80LgiIC4gMTYpICAgOyDRgdGD0YnQtdGB0YLQstC40YLQtdC70YzQvdGL0LUg0YLQstC+0YDQuNGC0LXQu9GM0L3Ri9C5INC/0LDQtNC10LYsINC80L0u0YfQuNGB0LvQvgogICAgKCLRj9GC0YwiIC4gMTcpKSkgOyDQs9C70LDQs9C+0LvRiyAxINGB0L/RgNGP0LbQtdC90LjQtQogICAgCjs7INCf0L7Qu9GD0YfQuNGC0Ywg0L/QvtGB0LvQtdC00L3QuNC1IDMg0YHQuNC80LLQvtC70LAg0YHQu9C+0LLQsAooZGVmdW4gbGFzdC10aHJlZSAod29yZCkKICAoaWYgKD49IChsZW5ndGggd29yZCkgMykKICAgICAgKHN1YnNlcSB3b3JkICgtIChsZW5ndGggd29yZCkgMykpCiAgICAgIG5pbCkpCgo7OyDQoNCw0LfQsdC40LXQvdC40LUg0YHRgtGA0L7QutC4INC90LAg0YHQu9C+0LLQsAooZGVmdW4gc3BsaXQtc3RyaW5nIChzdHIpCiAgKGxldCAoKHdvcmRzIG5pbCkgKGN1cnJlbnQgbmlsKSkKICAgIChkb3RpbWVzIChpIChsZW5ndGggc3RyKSkKICAgICAgKGxldCAoKGNoIChjaGFyIHN0ciBpKSkpCiAgICAgICAgKGlmIChjaGFyPSBjaCAjXFNwYWNlKQogICAgICAgICAgICAod2hlbiBjdXJyZW50CiAgICAgICAgICAgICAgKHB1c2ggKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSB3b3JkcykKICAgICAgICAgICAgICAoc2V0ZiBjdXJyZW50IG5pbCkpCiAgICAgICAgICAgIChwdXNoIGNoIGN1cnJlbnQpKSkpCiAgICAod2hlbiBjdXJyZW50CiAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgd29yZHMpKQogICAgKHJldmVyc2Ugd29yZHMpKSkKCjs7INCX0LDQvNC10L3QuNGC0Ywg0YHQu9C+0LLQviDQvdCwINC90L7QvNC10YAsINC10YHQu9C4INGB0LvQvtCy0L4gPj0gMyDQsdGD0LrQsiDQuCDQvdCw0LnQtNC10L3QviDQsiDRgdC70L7QstCw0YDQtQooZGVmdW4gcmVwbGFjZS13b3JkICh3b3JkKQogIChsZXQgKChlbmRpbmcgKGxhc3QtdGhyZWUgd29yZCkpKQogICAgKGlmIGVuZGluZwogICAgICAgIChsZXQgKChmb3VuZCAoYXNzb2MgZW5kaW5nICpkaWN0KiA6dGVzdCAjJ3N0cmluZz0pKSkKICAgICAgICAgIChpZiBmb3VuZCAoY2RyIGZvdW5kKSB3b3JkKSkKICAgICAgICB3b3JkKSkpCgo7OyDQk9C70LDQstC90LDRjyDRhNGD0L3QutGG0LjRjyDRgSDQuNGB0L/QvtC70YzQt9C+0LLQsNC90LjQtdC8IE1BUENBUgooZGVmdW4gcHJvY2Vzcy10ZXh0ICh0ZXh0KQogIChtYXBjYXIgIydyZXBsYWNlLXdvcmQgKHNwbGl0LXN0cmluZyB0ZXh0KSkpCgo7OyDQotC10YHRggoocHJpbnQgKHByb2Nlc3MtdGV4dCAi0LPQvtCy0L7RgNC40YLRjCDRgtC+INGH0YLQviDQtNGD0LzQsNC10YjRjCIpKQoocHJpbnQgKHByb2Nlc3MtdGV4dCAi0LrQu9C10YLQutCwINGBINCy0L7Qu9C90LjRgdGC0YvQvNC4INC/0L7Qv9GD0LPQsNGP0LzQuCIpKQoocHJpbnQgKHByb2Nlc3MtdGV4dCAi0LfQsNCy0YLRgNCw0LrQsNC10YLQtSDRgSDRgdC10YDQtdCx0YDRj9C90YvQvNC4INC/0L7QtNGB0YLQsNC60LDQvdC90LjQutCw0LzQuCIpKQoocHJpbnQgKHByb2Nlc3MtdGV4dCAi0YHRh9Cw0YHRgtC70LjQstC+0LPQviDQvdC+0LLQvtCz0L4g0LPQvtC00LAiKSkK