;; Словарь окончаний: последние 3 буквы -> номер семантического эквивалента
(defparameter *dict*
  '(("ами" . 1)    ; глаголы: делать, читать
    ("ать" . 2)    ; глаголы: говорить, учить
    ("его" . 3)    ; глаголы: говорить, учить
    ("еми" . 4)    ; глаголы: смотреть, иметь
    ("ему" . 5)    ; глаголы: мыть, крыть
    ("емя" . 6)    ; прилагательные: красный, важный
    ("ете" . 7)    ; прилагательные: русский, детский
    ("ешь" . 8)    ; существительные: основа, корова
    ("ими" . 9)    ; существительные: ученик, работник
    ("ить" . 10)    ; родительный падеж: большого, нового
    ("ишь" . 11) ; дательный падеж: новому, первому
    ("ого" . 12)    ; существительные: основа, корова
    ("ому" . 13)    ; существительные: ученик, работник
    ("ыми" . 14)    ; родительный падеж: большого, нового
    ("ышь" . 15)    ; существительные: ученик, работник
    ("ями" . 16)    ; родительный падеж: большого, новог
    ("ять" . 17)))  ; дательный падеж: новому, первому
 
;; Получить последние 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+0LPQviDRjdC60LLQuNCy0LDQu9C10L3RgtCwCihkZWZwYXJhbWV0ZXIgKmRpY3QqCiAgJygoItCw0LzQuCIgLiAxKSAgICA7INCz0LvQsNCz0L7Qu9GLOiDQtNC10LvQsNGC0YwsINGH0LjRgtCw0YLRjAogICAgKCLQsNGC0YwiIC4gMikgICAgOyDQs9C70LDQs9C+0LvRizog0LPQvtCy0L7RgNC40YLRjCwg0YPRh9C40YLRjAogICAgKCLQtdCz0L4iIC4gMykgICAgOyDQs9C70LDQs9C+0LvRizog0LPQvtCy0L7RgNC40YLRjCwg0YPRh9C40YLRjAogICAgKCLQtdC80LgiIC4gNCkgICAgOyDQs9C70LDQs9C+0LvRizog0YHQvNC+0YLRgNC10YLRjCwg0LjQvNC10YLRjAogICAgKCLQtdC80YMiIC4gNSkgICAgOyDQs9C70LDQs9C+0LvRizog0LzRi9GC0YwsINC60YDRi9GC0YwKICAgICgi0LXQvNGPIiAuIDYpICAgIDsg0L/RgNC40LvQsNCz0LDRgtC10LvRjNC90YvQtTog0LrRgNCw0YHQvdGL0LksINCy0LDQttC90YvQuQogICAgKCLQtdGC0LUiIC4gNykgICAgOyDQv9GA0LjQu9Cw0LPQsNGC0LXQu9GM0L3Ri9C1OiDRgNGD0YHRgdC60LjQuSwg0LTQtdGC0YHQutC40LkKICAgICgi0LXRiNGMIiAuIDgpICAgIDsg0YHRg9GJ0LXRgdGC0LLQuNGC0LXQu9GM0L3Ri9C1OiDQvtGB0L3QvtCy0LAsINC60L7RgNC+0LLQsAogICAgKCLQuNC80LgiIC4gOSkgICAgOyDRgdGD0YnQtdGB0YLQstC40YLQtdC70YzQvdGL0LU6INGD0YfQtdC90LjQuiwg0YDQsNCx0L7RgtC90LjQugogICAgKCLQuNGC0YwiIC4gMTApICAgIDsg0YDQvtC00LjRgtC10LvRjNC90YvQuSDQv9Cw0LTQtdC2OiDQsdC+0LvRjNGI0L7Qs9C+LCDQvdC+0LLQvtCz0L4KICAgICgi0LjRiNGMIiAuIDExKSA7INC00LDRgtC10LvRjNC90YvQuSDQv9Cw0LTQtdC2OiDQvdC+0LLQvtC80YMsINC/0LXRgNCy0L7QvNGDCiAgICAoItC+0LPQviIgLiAxMikgICAgOyDRgdGD0YnQtdGB0YLQstC40YLQtdC70YzQvdGL0LU6INC+0YHQvdC+0LLQsCwg0LrQvtGA0L7QstCwCiAgICAoItC+0LzRgyIgLiAxMykgICAgOyDRgdGD0YnQtdGB0YLQstC40YLQtdC70YzQvdGL0LU6INGD0YfQtdC90LjQuiwg0YDQsNCx0L7RgtC90LjQugogICAgKCLRi9C80LgiIC4gMTQpICAgIDsg0YDQvtC00LjRgtC10LvRjNC90YvQuSDQv9Cw0LTQtdC2OiDQsdC+0LvRjNGI0L7Qs9C+LCDQvdC+0LLQvtCz0L4KICAgICgi0YvRiNGMIiAuIDE1KSAgICA7INGB0YPRidC10YHRgtCy0LjRgtC10LvRjNC90YvQtTog0YPRh9C10L3QuNC6LCDRgNCw0LHQvtGC0L3QuNC6CiAgICAoItGP0LzQuCIgLiAxNikgICAgOyDRgNC+0LTQuNGC0LXQu9GM0L3Ri9C5INC/0LDQtNC10LY6INCx0L7Qu9GM0YjQvtCz0L4sINC90L7QstC+0LMKICAgICgi0Y/RgtGMIiAuIDE3KSkpICA7INC00LDRgtC10LvRjNC90YvQuSDQv9Cw0LTQtdC2OiDQvdC+0LLQvtC80YMsINC/0LXRgNCy0L7QvNGDCgo7OyDQn9C+0LvRg9GH0LjRgtGMINC/0L7RgdC70LXQtNC90LjQtSAzINGB0LjQvNCy0L7Qu9CwINGB0LvQvtCy0LAKKGRlZnVuIGxhc3QtdGhyZWUgKHdvcmQpCiAgKGlmICg+PSAobGVuZ3RoIHdvcmQpIDMpCiAgICAgIChzdWJzZXEgd29yZCAoLSAobGVuZ3RoIHdvcmQpIDMpKQogICAgICBuaWwpKQoKOzsg0KDQsNC30LHQuNC10L3QuNC1INGB0YLRgNC+0LrQuCDQvdCwINGB0LvQvtCy0LAKKGRlZnVuIHNwbGl0LXN0cmluZyAoc3RyKQogIChsZXQgKCh3b3JkcyBuaWwpIChjdXJyZW50IG5pbCkpCiAgICAoZG90aW1lcyAoaSAobGVuZ3RoIHN0cikpCiAgICAgIChsZXQgKChjaCAoY2hhciBzdHIgaSkpKQogICAgICAgIChpZiAoY2hhcj0gY2ggI1xTcGFjZSkKICAgICAgICAgICAgKHdoZW4gY3VycmVudAogICAgICAgICAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgd29yZHMpCiAgICAgICAgICAgICAgKHNldGYgY3VycmVudCBuaWwpKQogICAgICAgICAgICAocHVzaCBjaCBjdXJyZW50KSkpKQogICAgKHdoZW4gY3VycmVudAogICAgICAocHVzaCAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHdvcmRzKSkKICAgIChyZXZlcnNlIHdvcmRzKSkpCgo7OyDQl9Cw0LzQtdC90LjRgtGMINGB0LvQvtCy0L4g0L3QsCDQvdC+0LzQtdGALCDQtdGB0LvQuCDRgdC70L7QstC+ID49IDMg0LHRg9C60LIg0Lgg0L3QsNC50LTQtdC90L4g0LIg0YHQu9C+0LLQsNGA0LUKKGRlZnVuIHJlcGxhY2Utd29yZCAod29yZCkKICAobGV0ICgoZW5kaW5nIChsYXN0LXRocmVlIHdvcmQpKSkKICAgIChpZiBlbmRpbmcKICAgICAgICAobGV0ICgoZm91bmQgKGFzc29jIGVuZGluZyAqZGljdCogOnRlc3QgIydzdHJpbmc9KSkpCiAgICAgICAgICAoaWYgZm91bmQgKGNkciBmb3VuZCkgd29yZCkpCiAgICAgICAgd29yZCkpKQoKOzsg0JPQu9Cw0LLQvdCw0Y8g0YTRg9C90LrRhtC40Y8g0YEg0LjRgdC/0L7Qu9GM0LfQvtCy0LDQvdC40LXQvCBNQVBDQVIKKGRlZnVuIHByb2Nlc3MtdGV4dCAodGV4dCkKICAobWFwY2FyICMncmVwbGFjZS13b3JkIChzcGxpdC1zdHJpbmcgdGV4dCkpKQoKOzsg0KLQtdGB0YIKKHByaW50IChwcm9jZXNzLXRleHQgItCz0L7QstC+0YDQuNGC0Ywg0YLQviDRh9GC0L4g0LTRg9C80LDQtdGI0YwiKSkKKHByaW50IChwcm9jZXNzLXRleHQgItC60LvQtdGC0LrQsCDRgSDQv9C+0L/Rg9Cz0LDRj9C80LgiKSkKKHByaW50IChwcm9jZXNzLXRleHQgItC30LDQstGC0YDQsNC60LDQtdGC0LUg0YEg0YHQtdGA0LXQsdGA0Y/QvdGL0LzQuCDQv9C+0LTRgdGC0LDQutCw0L3QvdC40LrQsNC80LgiKSkKKHByaW50IChwcm9jZXNzLXRleHQgItGB0YfQsNGB0YLQu9C40LLQvtCz0L4g0L3QvtCy0L7Qs9C+INCz0L7QtNCwIikpCg==