;; Гласные буквы русского языка
(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))))
 
;; Разбиение слова на слоги по правилам русского языка (рекурсивная версия без SETF)
(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)
                     (if (yot-after-vowel-p chars i)
                         (let ((next-char (elt chars (1+ i))))
                           (let ((new-current (append current (list ch next-char))))
                             (split-word-recursive chars
                                                   (cons (coerce (reverse new-current) 'string) syllables)
                                                   nil
                                                   (+ i 2))))
                         (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 "чай"))

Ozsg0JPQu9Cw0YHQvdGL0LUg0LHRg9C60LLRiyDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAKKGRlZnVuIHZvd2VsLXAgKGNoYXIpCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNC1ICNc0ZEgI1zQuCAjXNC+ICNc0YMgI1zRiyAjXNGNICNc0Y4gI1zRjwogICAgICAgICAgICAgICAgICNc0JAgI1zQlSAjXNCBICNc0JggI1zQniAjXNCjICNc0KsgI1zQrSAjXNCuICNc0K8pCiAgICAgICAgICA6dGVzdCAjJ2NoYXI9KSkKCjs7INCh0L7Qs9C70LDRgdC90YvQtSDQsdGD0LrQstGLINGA0YPRgdGB0LrQvtCz0L4g0Y/Qt9GL0LrQsAooZGVmdW4gY29uc29uYW50LXAgKGNoYXIpCiAgKG5vdCAodm93ZWwtcCBjaGFyKSkpCgo7OyDQpNGD0L3QutGG0LjRjyDQtNC70Y8g0L/RgNC+0LLQtdGA0LrQuCDQvdCw0LvQuNGH0LjRjyAi0LkiINC/0L7RgdC70LUg0LPQu9Cw0YHQvdC+0LkKKGRlZnVuIHlvdC1hZnRlci12b3dlbC1wIChjaGFycyBpbmRleCkKICAoYW5kICg8ICgxKyBpbmRleCkgKGxlbmd0aCBjaGFycykpCiAgICAgICAoY2hhcj0gKGVsdCBjaGFycyAoMSsgaW5kZXgpKSAjXNC5KQogICAgICAgKHZvd2VsLXAgKGVsdCBjaGFycyBpbmRleCkpKSkKCjs7INCg0LDQt9Cx0LjQtdC90LjQtSDRgdC70L7QstCwINC90LAg0YHQu9C+0LPQuCDQv9C+INC/0YDQsNCy0LjQu9Cw0Lwg0YDRg9GB0YHQutC+0LPQviDRj9C30YvQutCwICjRgNC10LrRg9GA0YHQuNCy0L3QsNGPINCy0LXRgNGB0LjRjyDQsdC10LcgU0VURikKKGRlZnVuIHNwbGl0LXdvcmQgKHdvcmQpCiAgKGxhYmVscyAoKHNwbGl0LXdvcmQtcmVjdXJzaXZlIChjaGFycyBzeWxsYWJsZXMgY3VycmVudCBpKQogICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgKCg+PSBpIChsZW5ndGggY2hhcnMpKQogICAgICAgICAgICAgICAgKGlmIGN1cnJlbnQKICAgICAgICAgICAgICAgICAgICAocmV2ZXJzZSAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHN5bGxhYmxlcykpCiAgICAgICAgICAgICAgICAgICAgKHJldmVyc2Ugc3lsbGFibGVzKSkpCiAgICAgICAgICAgICAgICh0CiAgICAgICAgICAgICAgICAobGV0ICgoY2ggKGVsdCBjaGFycyBpKSkpCiAgICAgICAgICAgICAgICAgIChjb25kCiAgICAgICAgICAgICAgICAgICAgKCh2b3dlbC1wIGNoKQogICAgICAgICAgICAgICAgICAgICAoaWYgKHlvdC1hZnRlci12b3dlbC1wIGNoYXJzIGkpCiAgICAgICAgICAgICAgICAgICAgICAgICAobGV0ICgobmV4dC1jaGFyIChlbHQgY2hhcnMgKDErIGkpKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgIChsZXQgKChuZXctY3VycmVudCAoYXBwZW5kIGN1cnJlbnQgKGxpc3QgY2ggbmV4dC1jaGFyKSkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIChzcGxpdC13b3JkLXJlY3Vyc2l2ZSBjaGFycwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29ucyAoY29lcmNlIChyZXZlcnNlIG5ldy1jdXJyZW50KSAnc3RyaW5nKSBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5pbAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoKyBpIDIpKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtd29yZC1yZWN1cnNpdmUgY2hhcnMKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29ucyAoY29lcmNlIChyZXZlcnNlIChjb25zIGNoIGN1cnJlbnQpKSAnc3RyaW5nKSBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmlsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKDErIGkpKSkpCiAgICAgICAgICAgICAgICAgICAgKHQKICAgICAgICAgICAgICAgICAgICAgKHNwbGl0LXdvcmQtcmVjdXJzaXZlIGNoYXJzCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzeWxsYWJsZXMKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb25zIGNoIGN1cnJlbnQpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoMSsgaSkpKSkpKSkpKQogICAgKHNwbGl0LXdvcmQtcmVjdXJzaXZlIChjb2VyY2Ugd29yZCAnbGlzdCkgbmlsIG5pbCAwKSkpCgo7OyDQoNCw0LfQsdC40LXQvdC40LUg0YHRgtGA0L7QutC4INC90LAg0YHQu9C+0LLQsCAo0YDQtdC60YPRgNGB0LjQstC90LDRjyDQstC10YDRgdC40Y8g0LHQtdC3IFNFVEYpCihkZWZ1biBzcGxpdC1zdHJpbmcgKHN0cikKICAobGFiZWxzICgoc3BsaXQtc3RyaW5nLXJlY3Vyc2l2ZSAoc3RyIGN1cnJlbnQtd29yZCB3b3JkcykKICAgICAgICAgICAgIChjb25kCiAgICAgICAgICAgICAgICgobnVsbCBzdHIpCiAgICAgICAgICAgICAgICAoaWYgY3VycmVudC13b3JkCiAgICAgICAgICAgICAgICAgICAgKHJldmVyc2UgKGNvbnMgKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50LXdvcmQpICdzdHJpbmcpIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAocmV2ZXJzZSB3b3JkcykpKQogICAgICAgICAgICAgICAoKGNoYXI9IChjYXIgc3RyKSAjXFNwYWNlKQogICAgICAgICAgICAgICAgKGlmIGN1cnJlbnQtd29yZAogICAgICAgICAgICAgICAgICAgIChzcGxpdC1zdHJpbmctcmVjdXJzaXZlIChjZHIgc3RyKSBuaWwgKGNvbnMgKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50LXdvcmQpICdzdHJpbmcpIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAoc3BsaXQtc3RyaW5nLXJlY3Vyc2l2ZSAoY2RyIHN0cikgbmlsIHdvcmRzKSkpCiAgICAgICAgICAgICAgICh0CiAgICAgICAgICAgICAgICAoc3BsaXQtc3RyaW5nLXJlY3Vyc2l2ZSAoY2RyIHN0cikgKGNvbnMgKGNhciBzdHIpIGN1cnJlbnQtd29yZCkgd29yZHMpKSkpKQogICAgKHNwbGl0LXN0cmluZy1yZWN1cnNpdmUgKGNvZXJjZSBzdHIgJ2xpc3QpIG5pbCBuaWwpKSkKCjs7INCT0LvQsNCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGBINC40YHQv9C+0LvRjNC30L7QstCw0L3QuNC10LwgTUFQQ0FSCihkZWZ1biBzcGxpdC1waHJhc2UgKHBocmFzZSkKICAobWFwY2FyICMnc3BsaXQtd29yZCAoc3BsaXQtc3RyaW5nIHBocmFzZSkpKQoKOzsg0KLQtdGB0YIKKHByaW50IChzcGxpdC1waHJhc2UgItC90LDQv9C40YHQsNGC0Ywg0L/RgNC+0LPRgNCw0LzQvNGDIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQtNCw0L3QsCDRhNGA0LDQt9CwINC90LAg0YDRg9GB0YHQutC+0Lwg0Y/Qt9GL0LrQtSIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LLQvtC50L3QsCwg0LzQuNGALCDRjdCy0LDQutGD0LDRgtC+0YAiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItGB0LrQsNC80LXQudC60LAiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItCy0LDQvdC90LAiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItC60L7Qu9C70LXQutGG0LjRjyIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0YfQsNC5Iikp