;; Гласные буквы русского языка
(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 ((process-syllable (chars syllables current index)
             (cond
               ((>= index (length chars))
                (if current
                    (let ((new-syllable (coerce (reverse current) 'string)))
                      (cond
                        (syllables (cons (concatenate 'string (car syllables) new-syllable) (cdr syllables)))
                        (t (list new-syllable))))
                    syllables))
               ((vowel-p (elt chars index))
                (if (yot-after-vowel-p chars index)
                    (let ((new-syllable (coerce (reverse (cons (elt chars index) (cons (elt chars (+ 1 index)) current))) 'string)))
                      (process-syllable (subseq chars (+ 2 index)) (cons new-syllable syllables) nil 0))
                    (let ((new-syllable (coerce (reverse (cons (elt chars index) current)) 'string)))
                      (process-syllable (subseq chars (+ 1 index)) (cons new-syllable syllables) nil 0))))
               (t (process-syllable chars syllables (cons (elt chars index) current) (+ 1 index))))))
    (reverse (process-syllable (coerce word 'list) nil nil 0))))
 
 
;; Разбиение строки на слова (без SETF)
(defun split-string (str)
  (labels ((process-string (string words current index)
             (cond ((>= index (length string))
                    (if current
                        (cons (coerce (reverse current) 'string) words)
                        words))
                   ((char= (char string index) #\Space)
                    (if current
                        (process-string string (cons (coerce (reverse current) 'string) words) nil (+ 1 index))
                        (process-string string words nil (+ 1 index))))
                   (t (process-string string words (cons (char string index) current) (+ 1 index))))))
    (reverse (process-string str nil nil 0))))
 
;; Главная функция с использованием 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 "чай"))
(print (split-phrase "ёлка"))

Ozsg0JPQu9Cw0YHQvdGL0LUg0LHRg9C60LLRiyDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAKKGRlZnVuIHZvd2VsLXAgKGNoYXIpCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNC1ICNc0ZEgI1zQuCAjXNC+ICNc0YMgI1zRiyAjXNGNICNc0Y4gI1zRjwogICAgICAgICAgICAgICAgICNc0JAgI1zQlSAjXNCBICNc0JggI1zQniAjXNCjICNc0KsgI1zQrSAjXNCuICNc0K8pCiAgICAgICAgICA6dGVzdCAjJ2NoYXI9KSkKCjs7INCh0L7Qs9C70LDRgdC90YvQtSDQsdGD0LrQstGLINGA0YPRgdGB0LrQvtCz0L4g0Y/Qt9GL0LrQsAooZGVmdW4gY29uc29uYW50LXAgKGNoYXIpCiAgKG5vdCAodm93ZWwtcCBjaGFyKSkpCgo7OyDQpNGD0L3QutGG0LjRjyDQtNC70Y8g0L/RgNC+0LLQtdGA0LrQuCDQvdCw0LvQuNGH0LjRjyAi0LkiINC/0L7RgdC70LUg0LPQu9Cw0YHQvdC+0LkKKGRlZnVuIHlvdC1hZnRlci12b3dlbC1wIChjaGFycyBpbmRleCkKICAoYW5kICg8ICgrIDEgaW5kZXgpIChsZW5ndGggY2hhcnMpKQogICAgICAgKGNoYXI9IChlbHQgY2hhcnMgKCsgMSBpbmRleCkpICNc0LkpCiAgICAgICAodm93ZWwtcCAoZWx0IGNoYXJzIGluZGV4KSkpKQoKOzsg0KDQsNC30LHQuNC10L3QuNC1INGB0LvQvtCy0LAg0L3QsCDRgdC70L7Qs9C4INC/0L4g0L/RgNCw0LLQuNC70LDQvCDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAgKNCx0LXQtyBTRVRGKQooZGVmdW4gc3BsaXQtd29yZCAod29yZCkKICAobGFiZWxzICgocHJvY2Vzcy1zeWxsYWJsZSAoY2hhcnMgc3lsbGFibGVzIGN1cnJlbnQgaW5kZXgpCiAgICAgICAgICAgICAoY29uZAogICAgICAgICAgICAgICAoKD49IGluZGV4IChsZW5ndGggY2hhcnMpKQogICAgICAgICAgICAgICAgKGlmIGN1cnJlbnQKICAgICAgICAgICAgICAgICAgICAobGV0ICgobmV3LXN5bGxhYmxlIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykpKQogICAgICAgICAgICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgICAgICAgICAgKHN5bGxhYmxlcyAoY29ucyAoY29uY2F0ZW5hdGUgJ3N0cmluZyAoY2FyIHN5bGxhYmxlcykgbmV3LXN5bGxhYmxlKSAoY2RyIHN5bGxhYmxlcykpKQogICAgICAgICAgICAgICAgICAgICAgICAodCAobGlzdCBuZXctc3lsbGFibGUpKSkpCiAgICAgICAgICAgICAgICAgICAgc3lsbGFibGVzKSkKICAgICAgICAgICAgICAgKCh2b3dlbC1wIChlbHQgY2hhcnMgaW5kZXgpKQogICAgICAgICAgICAgICAgKGlmICh5b3QtYWZ0ZXItdm93ZWwtcCBjaGFycyBpbmRleCkKICAgICAgICAgICAgICAgICAgICAobGV0ICgobmV3LXN5bGxhYmxlIChjb2VyY2UgKHJldmVyc2UgKGNvbnMgKGVsdCBjaGFycyBpbmRleCkgKGNvbnMgKGVsdCBjaGFycyAoKyAxIGluZGV4KSkgY3VycmVudCkpKSAnc3RyaW5nKSkpCiAgICAgICAgICAgICAgICAgICAgICAocHJvY2Vzcy1zeWxsYWJsZSAoc3Vic2VxIGNoYXJzICgrIDIgaW5kZXgpKSAoY29ucyBuZXctc3lsbGFibGUgc3lsbGFibGVzKSBuaWwgMCkpCiAgICAgICAgICAgICAgICAgICAgKGxldCAoKG5ldy1zeWxsYWJsZSAoY29lcmNlIChyZXZlcnNlIChjb25zIChlbHQgY2hhcnMgaW5kZXgpIGN1cnJlbnQpKSAnc3RyaW5nKSkpCiAgICAgICAgICAgICAgICAgICAgICAocHJvY2Vzcy1zeWxsYWJsZSAoc3Vic2VxIGNoYXJzICgrIDEgaW5kZXgpKSAoY29ucyBuZXctc3lsbGFibGUgc3lsbGFibGVzKSBuaWwgMCkpKSkKICAgICAgICAgICAgICAgKHQgKHByb2Nlc3Mtc3lsbGFibGUgY2hhcnMgc3lsbGFibGVzIChjb25zIChlbHQgY2hhcnMgaW5kZXgpIGN1cnJlbnQpICgrIDEgaW5kZXgpKSkpKSkKICAgIChyZXZlcnNlIChwcm9jZXNzLXN5bGxhYmxlIChjb2VyY2Ugd29yZCAnbGlzdCkgbmlsIG5pbCAwKSkpKQoKCjs7INCg0LDQt9Cx0LjQtdC90LjQtSDRgdGC0YDQvtC60Lgg0L3QsCDRgdC70L7QstCwICjQsdC10LcgU0VURikKKGRlZnVuIHNwbGl0LXN0cmluZyAoc3RyKQogIChsYWJlbHMgKChwcm9jZXNzLXN0cmluZyAoc3RyaW5nIHdvcmRzIGN1cnJlbnQgaW5kZXgpCiAgICAgICAgICAgICAoY29uZCAoKD49IGluZGV4IChsZW5ndGggc3RyaW5nKSkKICAgICAgICAgICAgICAgICAgICAoaWYgY3VycmVudAogICAgICAgICAgICAgICAgICAgICAgICAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHdvcmRzKQogICAgICAgICAgICAgICAgICAgICAgICB3b3JkcykpCiAgICAgICAgICAgICAgICAgICAoKGNoYXI9IChjaGFyIHN0cmluZyBpbmRleCkgI1xTcGFjZSkKICAgICAgICAgICAgICAgICAgICAoaWYgY3VycmVudAogICAgICAgICAgICAgICAgICAgICAgICAocHJvY2Vzcy1zdHJpbmcgc3RyaW5nIChjb25zIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgd29yZHMpIG5pbCAoKyAxIGluZGV4KSkKICAgICAgICAgICAgICAgICAgICAgICAgKHByb2Nlc3Mtc3RyaW5nIHN0cmluZyB3b3JkcyBuaWwgKCsgMSBpbmRleCkpKSkKICAgICAgICAgICAgICAgICAgICh0IChwcm9jZXNzLXN0cmluZyBzdHJpbmcgd29yZHMgKGNvbnMgKGNoYXIgc3RyaW5nIGluZGV4KSBjdXJyZW50KSAoKyAxIGluZGV4KSkpKSkpCiAgICAocmV2ZXJzZSAocHJvY2Vzcy1zdHJpbmcgc3RyIG5pbCBuaWwgMCkpKSkKCjs7INCT0LvQsNCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGBINC40YHQv9C+0LvRjNC30L7QstCw0L3QuNC10LwgTUFQQ0FSCihkZWZ1biBzcGxpdC1waHJhc2UgKHBocmFzZSkKICAobWFwY2FyICMnc3BsaXQtd29yZCAoc3BsaXQtc3RyaW5nIHBocmFzZSkpKSAgOyBVc2luZyBNQVBDQVIKCjs7INCi0LXRgdGCCihwcmludCAoc3BsaXQtcGhyYXNlICLQvdCw0L/QuNGB0LDRgtGMINC/0YDQvtCz0YDQsNC80LzRgyIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LTQsNC90LAg0YTRgNCw0LfQsCDQvdCwINGA0YPRgdGB0LrQvtC8INGP0LfRi9C60LUiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItCy0L7QudC90LAsINC80LjRgCwg0Y3QstCw0LrRg9Cw0YLQvtGAIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLRgdC60LDQvNC10LnQutCwIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQstCw0L3QvdCwIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQutC+0LvQu9C10LrRhtC40Y8iKSkKKHByaW50IChzcGxpdC1waHJhc2UgItGH0LDQuSIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0ZHQu9C60LAiKSk=