;; Гласные буквы русского языка
(defun vowel-p (char)
  (member char '(#\а #\е #\ё #\и #\о #\у #\ы #\э #\ю #\я
                 #\А #\Е #\Ё #\И #\О #\У #\Ы #\Э #\Ю #\Я)
          :test #'char=))
 
;; Согласные буквы русского языка
(defun consonant-p (char)
  (not (vowel-p char)))
 
;; Функция для проверки наличия "й" после гласной
(defun yot-after-vowel-p (chars index)
  (and (< (1+ index) (length chars))  
       (char= (elt chars (1+ index)) #\й)    
       (vowel-p (elt chars index))))   
 
 
;; Разбиение слова на слоги по правилам русского языка 
(defun split-word (word)
  (let ((chars (coerce word 'list))
        (syllables nil)
        (current nil)
        (i 0))
    (loop while (< i (length chars))
          do (let ((ch (elt chars i)))
               (push ch current)
               (cond
                 ((vowel-p ch)
                  ;; Проверка на "й" после гласной
                  (if (yot-after-vowel-p chars i)
                      (progn
                        (incf i)  
                        (push (elt chars i) current) ; Включаем "й" в текущий слог
                        (push (coerce (reverse current) 'string) syllables)
                        (setf current nil))
                      (progn
                          (push (coerce (reverse current) 'string) syllables)
                          (setf current nil)))
 
                  )
                 (t nil)) 
 
               (incf i)))
 
    (when current  
      (if syllables
          (setf (car syllables)
                (concatenate 'string (car syllables) (coerce (reverse current) 'string)))
          (push (coerce (reverse current) 'string) syllables)))
    (reverse syllables)))
 
;; Разбиение строки на слова
(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)))
 
;; Главная функция с использованием MAPCAR
(defun split-phrase (phrase)
  (mapcar #'split-word (split-string phrase)))  ; Using MAPCAR
 
;; Тест
(print (split-phrase "написать программу"))
(print (split-phrase "дана фраза на русском языке"))
(print (split-phrase "война, мир, эвакуатор"))
(print (split-phrase "скамейка"))
(print (split-phrase "ванна"))
(print (split-phrase "коллекция"))
(print (split-phrase "чай"))

Ozsg0JPQu9Cw0YHQvdGL0LUg0LHRg9C60LLRiyDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAKKGRlZnVuIHZvd2VsLXAgKGNoYXIpCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNC1ICNc0ZEgI1zQuCAjXNC+ICNc0YMgI1zRiyAjXNGNICNc0Y4gI1zRjwogICAgICAgICAgICAgICAgICNc0JAgI1zQlSAjXNCBICNc0JggI1zQniAjXNCjICNc0KsgI1zQrSAjXNCuICNc0K8pCiAgICAgICAgICA6dGVzdCAjJ2NoYXI9KSkKCjs7INCh0L7Qs9C70LDRgdC90YvQtSDQsdGD0LrQstGLINGA0YPRgdGB0LrQvtCz0L4g0Y/Qt9GL0LrQsAooZGVmdW4gY29uc29uYW50LXAgKGNoYXIpCiAgKG5vdCAodm93ZWwtcCBjaGFyKSkpCgo7OyDQpNGD0L3QutGG0LjRjyDQtNC70Y8g0L/RgNC+0LLQtdGA0LrQuCDQvdCw0LvQuNGH0LjRjyAi0LkiINC/0L7RgdC70LUg0LPQu9Cw0YHQvdC+0LkKKGRlZnVuIHlvdC1hZnRlci12b3dlbC1wIChjaGFycyBpbmRleCkKICAoYW5kICg8ICgxKyBpbmRleCkgKGxlbmd0aCBjaGFycykpICAKICAgICAgIChjaGFyPSAoZWx0IGNoYXJzICgxKyBpbmRleCkpICNc0LkpICAgIAogICAgICAgKHZvd2VsLXAgKGVsdCBjaGFycyBpbmRleCkpKSkgICAKCgo7OyDQoNCw0LfQsdC40LXQvdC40LUg0YHQu9C+0LLQsCDQvdCwINGB0LvQvtCz0Lgg0L/QviDQv9GA0LDQstC40LvQsNC8INGA0YPRgdGB0LrQvtCz0L4g0Y/Qt9GL0LrQsCAKKGRlZnVuIHNwbGl0LXdvcmQgKHdvcmQpCiAgKGxldCAoKGNoYXJzIChjb2VyY2Ugd29yZCAnbGlzdCkpCiAgICAgICAgKHN5bGxhYmxlcyBuaWwpCiAgICAgICAgKGN1cnJlbnQgbmlsKQogICAgICAgIChpIDApKQogICAgKGxvb3Agd2hpbGUgKDwgaSAobGVuZ3RoIGNoYXJzKSkKICAgICAgICAgIGRvIChsZXQgKChjaCAoZWx0IGNoYXJzIGkpKSkKICAgICAgICAgICAgICAgKHB1c2ggY2ggY3VycmVudCkKICAgICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgICAoKHZvd2VsLXAgY2gpCiAgICAgICAgICAgICAgICAgIDs7INCf0YDQvtCy0LXRgNC60LAg0L3QsCAi0LkiINC/0L7RgdC70LUg0LPQu9Cw0YHQvdC+0LkKICAgICAgICAgICAgICAgICAgKGlmICh5b3QtYWZ0ZXItdm93ZWwtcCBjaGFycyBpKQogICAgICAgICAgICAgICAgICAgICAgKHByb2duCiAgICAgICAgICAgICAgICAgICAgICAgIChpbmNmIGkpICAKICAgICAgICAgICAgICAgICAgICAgICAgKHB1c2ggKGVsdCBjaGFycyBpKSBjdXJyZW50KSA7INCS0LrQu9GO0YfQsNC10LwgItC5IiDQsiDRgtC10LrRg9GJ0LjQuSDRgdC70L7QswogICAgICAgICAgICAgICAgICAgICAgICAocHVzaCAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHN5bGxhYmxlcykKICAgICAgICAgICAgICAgICAgICAgICAgKHNldGYgY3VycmVudCBuaWwpKQogICAgICAgICAgICAgICAgICAgICAgKHByb2duCiAgICAgICAgICAgICAgICAgICAgICAgICAgKHB1c2ggKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAgICAgICAgICAgKHNldGYgY3VycmVudCBuaWwpKSkKCiAgICAgICAgICAgICAgICAgICkKICAgICAgICAgICAgICAgICAodCBuaWwpKSAKCiAgICAgICAgICAgICAgIChpbmNmIGkpKSkKCiAgICAod2hlbiBjdXJyZW50ICAKICAgICAgKGlmIHN5bGxhYmxlcwogICAgICAgICAgKHNldGYgKGNhciBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAoY29uY2F0ZW5hdGUgJ3N0cmluZyAoY2FyIHN5bGxhYmxlcykgKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSkpCiAgICAgICAgICAocHVzaCAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHN5bGxhYmxlcykpKQogICAgKHJldmVyc2Ugc3lsbGFibGVzKSkpCgo7OyDQoNCw0LfQsdC40LXQvdC40LUg0YHRgtGA0L7QutC4INC90LAg0YHQu9C+0LLQsAooZGVmdW4gc3BsaXQtc3RyaW5nIChzdHIpCiAgKGxldCAoKHdvcmRzIG5pbCkgKGN1cnJlbnQgbmlsKSkKICAgIChkb3RpbWVzIChpIChsZW5ndGggc3RyKSkKICAgICAgKGxldCAoKGNoIChjaGFyIHN0ciBpKSkpCiAgICAgICAgKGlmIChjaGFyPSBjaCAjXFNwYWNlKQogICAgICAgICAgICAod2hlbiBjdXJyZW50CiAgICAgICAgICAgICAgKHB1c2ggKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSB3b3JkcykKICAgICAgICAgICAgICAoc2V0ZiBjdXJyZW50IG5pbCkpCiAgICAgICAgICAgIChwdXNoIGNoIGN1cnJlbnQpKSkpCiAgICAod2hlbiBjdXJyZW50CiAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgd29yZHMpKQogICAgKHJldmVyc2Ugd29yZHMpKSkKCjs7INCT0LvQsNCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGBINC40YHQv9C+0LvRjNC30L7QstCw0L3QuNC10LwgTUFQQ0FSCihkZWZ1biBzcGxpdC1waHJhc2UgKHBocmFzZSkKICAobWFwY2FyICMnc3BsaXQtd29yZCAoc3BsaXQtc3RyaW5nIHBocmFzZSkpKSAgOyBVc2luZyBNQVBDQVIKCjs7INCi0LXRgdGCCihwcmludCAoc3BsaXQtcGhyYXNlICLQvdCw0L/QuNGB0LDRgtGMINC/0YDQvtCz0YDQsNC80LzRgyIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LTQsNC90LAg0YTRgNCw0LfQsCDQvdCwINGA0YPRgdGB0LrQvtC8INGP0LfRi9C60LUiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItCy0L7QudC90LAsINC80LjRgCwg0Y3QstCw0LrRg9Cw0YLQvtGAIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLRgdC60LDQvNC10LnQutCwIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQstCw0L3QvdCwIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQutC+0LvQu9C10LrRhtC40Y8iKSkKKHByaW50IChzcGxpdC1waHJhc2UgItGH0LDQuSIpKQ==