;; Гласные буквы русского языка
(defun vowel-p (char)
  (member char '(#\а #\е #\ё #\и #\о #\у #\ы #\э #\ю #\я
                 #\А #\Е #\Ё #\И #\О #\У #\Ы #\Э #\Ю #\Я)
          :test #'char=))
 
;; Согласные буквы русского языка
(defun consonant-p (char)
  (not (vowel-p char)))
 
;; Йотированные гласные
(defun yotated-vowel-p (char)
  (member char '(#\е #\ё #\ю #\я #\Е #\Ё #\Ю #\Я) :test #'char=))
 
;; Функция для разбиения слова на слоги
(defun split-word (word)
  (labels ((split-word-recursive (chars syllables current i)
             (cond
               ((>= i (length chars))
                (if current
                    (reverse (cons (coerce (reverse current) 'string) syllables))
                    (reverse syllables)))
               (t
                (let ((ch (elt chars i)))
                  (cond
                    ((vowel-p ch)
                     ;Обработка гласной
                     (cond
                       ((and (= i 0) (yotated-vowel-p ch))
                        ; Йотированная в начале слова
                        (split-word-recursive chars (cons (string ch) syllables) nil (1+ i)))
                       ((and (> i 0) (vowel-p (elt chars (1- i))) (yotated-vowel-p ch))
                        ; Йотированная после гласной
                        (split-word-recursive chars (cons (string ch) syllables) nil (1+ i)))
                       ((char= ch #\й)
                        ;Обработка "й"
                        (split-word-recursive chars (cons (coerce (reverse (cons ch current)) 'string) syllables) nil (1+ i)))
                       (t
                        ;Обычная гласная
                        (split-word-recursive chars (cons (coerce (reverse (cons ch current)) 'string) syllables) nil (1+ i))))
                     )
                    (t
                     ;Обработка согласной
                     (split-word-recursive chars syllables (cons ch current) (1+ i)))))))))
    (split-word-recursive (coerce word 'list) nil nil 0)))
 
;; Разбиение строки на слова (рекурсивная версия без SETF)
(defun split-string (str)
  (labels ((split-string-recursive (str current-word words)
             (cond
               ((null str)
                (if current-word
                    (reverse (cons (coerce (reverse current-word) 'string) words))
                    (reverse words)))
               ((char= (car str) #\Space)
                (if current-word
                    (split-string-recursive (cdr str) nil (cons (coerce (reverse current-word) 'string) words))
                    (split-string-recursive (cdr str) nil words)))
               (t
                (split-string-recursive (cdr str) (cons (car str) current-word) words)))))
    (split-string-recursive (coerce str 'list) nil nil)))
 
;; Главная функция с использованием MAPCAR
(defun split-phrase (phrase)
  (mapcar #'split-word (split-string phrase)))
 
;; Тест
(print (split-phrase "написать программу"))
(print (split-phrase "дана фраза на русском языке"))
(print (split-phrase "война, мир, эвакуатор"))
(print (split-phrase "скамейка"))
(print (split-phrase "ванна"))
(print (split-phrase "коллекция"))
(print (split-phrase "чай"))
(print (split-phrase "ёлка"))
(print (split-phrase "яма"))
(print (split-phrase "юла"))
(print (split-phrase "еда"))

Cjs7INCT0LvQsNGB0L3Ri9C1INCx0YPQutCy0Ysg0YDRg9GB0YHQutC+0LPQviDRj9C30YvQutCwCihkZWZ1biB2b3dlbC1wIChjaGFyKQogIChtZW1iZXIgY2hhciAnKCNc0LAgI1zQtSAjXNGRICNc0LggI1zQviAjXNGDICNc0YsgI1zRjSAjXNGOICNc0Y8KICAgICAgICAgICAgICAgICAjXNCQICNc0JUgI1zQgSAjXNCYICNc0J4gI1zQoyAjXNCrICNc0K0gI1zQriAjXNCvKQogICAgICAgICAgOnRlc3QgIydjaGFyPSkpCgo7OyDQodC+0LPQu9Cw0YHQvdGL0LUg0LHRg9C60LLRiyDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAKKGRlZnVuIGNvbnNvbmFudC1wIChjaGFyKQogIChub3QgKHZvd2VsLXAgY2hhcikpKQoKOzsg0JnQvtGC0LjRgNC+0LLQsNC90L3Ri9C1INCz0LvQsNGB0L3Ri9C1CihkZWZ1biB5b3RhdGVkLXZvd2VsLXAgKGNoYXIpCiAgKG1lbWJlciBjaGFyICcoI1zQtSAjXNGRICNc0Y4gI1zRjyAjXNCVICNc0IEgI1zQriAjXNCvKSA6dGVzdCAjJ2NoYXI9KSkKCjs7INCk0YPQvdC60YbQuNGPINC00LvRjyDRgNCw0LfQsdC40LXQvdC40Y8g0YHQu9C+0LLQsCDQvdCwINGB0LvQvtCz0LgKKGRlZnVuIHNwbGl0LXdvcmQgKHdvcmQpCiAgKGxhYmVscyAoKHNwbGl0LXdvcmQtcmVjdXJzaXZlIChjaGFycyBzeWxsYWJsZXMgY3VycmVudCBpKQogICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgKCg+PSBpIChsZW5ndGggY2hhcnMpKQogICAgICAgICAgICAgICAgKGlmIGN1cnJlbnQKICAgICAgICAgICAgICAgICAgICAocmV2ZXJzZSAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHN5bGxhYmxlcykpCiAgICAgICAgICAgICAgICAgICAgKHJldmVyc2Ugc3lsbGFibGVzKSkpCiAgICAgICAgICAgICAgICh0CiAgICAgICAgICAgICAgICAobGV0ICgoY2ggKGVsdCBjaGFycyBpKSkpCiAgICAgICAgICAgICAgICAgIChjb25kCiAgICAgICAgICAgICAgICAgICAgKCh2b3dlbC1wIGNoKQogICAgICAgICAgICAgICAgICAgICA70J7QsdGA0LDQsdC+0YLQutCwINCz0LvQsNGB0L3QvtC5CiAgICAgICAgICAgICAgICAgICAgIChjb25kCiAgICAgICAgICAgICAgICAgICAgICAgKChhbmQgKD0gaSAwKSAoeW90YXRlZC12b3dlbC1wIGNoKSkKICAgICAgICAgICAgICAgICAgICAgICAgOyDQmdC+0YLQuNGA0L7QstCw0L3QvdCw0Y8g0LIg0L3QsNGH0LDQu9C1INGB0LvQvtCy0LAKICAgICAgICAgICAgICAgICAgICAgICAgKHNwbGl0LXdvcmQtcmVjdXJzaXZlIGNoYXJzIChjb25zIChzdHJpbmcgY2gpIHN5bGxhYmxlcykgbmlsICgxKyBpKSkpCiAgICAgICAgICAgICAgICAgICAgICAgKChhbmQgKD4gaSAwKSAodm93ZWwtcCAoZWx0IGNoYXJzICgxLSBpKSkpICh5b3RhdGVkLXZvd2VsLXAgY2gpKQogICAgICAgICAgICAgICAgICAgICAgICA7INCZ0L7RgtC40YDQvtCy0LDQvdC90LDRjyDQv9C+0YHQu9C1INCz0LvQsNGB0L3QvtC5CiAgICAgICAgICAgICAgICAgICAgICAgIChzcGxpdC13b3JkLXJlY3Vyc2l2ZSBjaGFycyAoY29ucyAoc3RyaW5nIGNoKSBzeWxsYWJsZXMpIG5pbCAoMSsgaSkpKQogICAgICAgICAgICAgICAgICAgICAgICgoY2hhcj0gY2ggI1zQuSkKICAgICAgICAgICAgICAgICAgICAgICAgO9Ce0LHRgNCw0LHQvtGC0LrQsCAi0LkiCiAgICAgICAgICAgICAgICAgICAgICAgIChzcGxpdC13b3JkLXJlY3Vyc2l2ZSBjaGFycyAoY29ucyAoY29lcmNlIChyZXZlcnNlIChjb25zIGNoIGN1cnJlbnQpKSAnc3RyaW5nKSBzeWxsYWJsZXMpIG5pbCAoMSsgaSkpKQogICAgICAgICAgICAgICAgICAgICAgICh0CiAgICAgICAgICAgICAgICAgICAgICAgIDvQntCx0YvRh9C90LDRjyDQs9C70LDRgdC90LDRjwogICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtd29yZC1yZWN1cnNpdmUgY2hhcnMgKGNvbnMgKGNvZXJjZSAocmV2ZXJzZSAoY29ucyBjaCBjdXJyZW50KSkgJ3N0cmluZykgc3lsbGFibGVzKSBuaWwgKDErIGkpKSkpCiAgICAgICAgICAgICAgICAgICAgICkKICAgICAgICAgICAgICAgICAgICAodAogICAgICAgICAgICAgICAgICAgICA70J7QsdGA0LDQsdC+0YLQutCwINGB0L7Qs9C70LDRgdC90L7QuQogICAgICAgICAgICAgICAgICAgICAoc3BsaXQtd29yZC1yZWN1cnNpdmUgY2hhcnMgc3lsbGFibGVzIChjb25zIGNoIGN1cnJlbnQpICgxKyBpKSkpKSkpKSkpCiAgICAoc3BsaXQtd29yZC1yZWN1cnNpdmUgKGNvZXJjZSB3b3JkICdsaXN0KSBuaWwgbmlsIDApKSkKCjs7INCg0LDQt9Cx0LjQtdC90LjQtSDRgdGC0YDQvtC60Lgg0L3QsCDRgdC70L7QstCwICjRgNC10LrRg9GA0YHQuNCy0L3QsNGPINCy0LXRgNGB0LjRjyDQsdC10LcgU0VURikKKGRlZnVuIHNwbGl0LXN0cmluZyAoc3RyKQogIChsYWJlbHMgKChzcGxpdC1zdHJpbmctcmVjdXJzaXZlIChzdHIgY3VycmVudC13b3JkIHdvcmRzKQogICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgKChudWxsIHN0cikKICAgICAgICAgICAgICAgIChpZiBjdXJyZW50LXdvcmQKICAgICAgICAgICAgICAgICAgICAocmV2ZXJzZSAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQtd29yZCkgJ3N0cmluZykgd29yZHMpKQogICAgICAgICAgICAgICAgICAgIChyZXZlcnNlIHdvcmRzKSkpCiAgICAgICAgICAgICAgICgoY2hhcj0gKGNhciBzdHIpICNcU3BhY2UpCiAgICAgICAgICAgICAgICAoaWYgY3VycmVudC13b3JkCiAgICAgICAgICAgICAgICAgICAgKHNwbGl0LXN0cmluZy1yZWN1cnNpdmUgKGNkciBzdHIpIG5pbCAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQtd29yZCkgJ3N0cmluZykgd29yZHMpKQogICAgICAgICAgICAgICAgICAgIChzcGxpdC1zdHJpbmctcmVjdXJzaXZlIChjZHIgc3RyKSBuaWwgd29yZHMpKSkKICAgICAgICAgICAgICAgKHQKICAgICAgICAgICAgICAgIChzcGxpdC1zdHJpbmctcmVjdXJzaXZlIChjZHIgc3RyKSAoY29ucyAoY2FyIHN0cikgY3VycmVudC13b3JkKSB3b3JkcykpKSkpCiAgICAoc3BsaXQtc3RyaW5nLXJlY3Vyc2l2ZSAoY29lcmNlIHN0ciAnbGlzdCkgbmlsIG5pbCkpKQoKOzsg0JPQu9Cw0LLQvdCw0Y8g0YTRg9C90LrRhtC40Y8g0YEg0LjRgdC/0L7Qu9GM0LfQvtCy0LDQvdC40LXQvCBNQVBDQVIKKGRlZnVuIHNwbGl0LXBocmFzZSAocGhyYXNlKQogIChtYXBjYXIgIydzcGxpdC13b3JkIChzcGxpdC1zdHJpbmcgcGhyYXNlKSkpCgo7OyDQotC10YHRggoocHJpbnQgKHNwbGl0LXBocmFzZSAi0L3QsNC/0LjRgdCw0YLRjCDQv9GA0L7Qs9GA0LDQvNC80YMiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItC00LDQvdCwINGE0YDQsNC30LAg0L3QsCDRgNGD0YHRgdC60L7QvCDRj9C30YvQutC1IikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQstC+0LnQvdCwLCDQvNC40YAsINGN0LLQsNC60YPQsNGC0L7RgCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0YHQutCw0LzQtdC50LrQsCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LLQsNC90L3QsCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LrQvtC70LvQtdC60YbQuNGPIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLRh9Cw0LkiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItGR0LvQutCwIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLRj9C80LAiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItGO0LvQsCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LXQtNCwIikp