;; Гласные буквы русского языка
(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))
       (let ((next-char (elt chars (1+ index))))
         (or (char= next-char #\й)
             (member next-char '(#\е #\ё #\ю #\я) :test #'char=)))
       (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))))
                           (cond
                             ((char= next-char #\й)
                              (let ((new-current (append current (list ch next-char))))
                                (split-word-recursive chars
                                                       (cons (coerce (reverse new-current) 'string) syllables)
                                                       nil
                                                       (+ i 2))))
                             ((member next-char '(#\е #\ё #\ю #\я) :test #'char=)
                              (split-word-recursive chars
                                                     (cons (coerce (reverse (cons ch current)) 'string) syllables)
                                                     nil
                                                     (+ i 1)))
                             (t
                              (split-word-recursive chars
                                                     (cons (coerce (reverse (cons ch current)) 'string) syllables)
                                                     nil
                                                     (+ i 1)))))
                         (split-word-recursive chars
                                               (cons (coerce (reverse (cons ch current)) 'string) syllables)
                                               nil
                                               (+ i 1))))
                    (t
                     (split-word-recursive chars
                                           syllables
                                           (cons ch current)
                                           (+ i 1)))))))))
    (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+0LkKKGRlZnVuIHlvdC1hZnRlci12b3dlbC1wIChjaGFycyBpbmRleCkKICAoYW5kICg8ICgxKyBpbmRleCkgKGxlbmd0aCBjaGFycykpCiAgICAgICAobGV0ICgobmV4dC1jaGFyIChlbHQgY2hhcnMgKDErIGluZGV4KSkpKQogICAgICAgICAob3IgKGNoYXI9IG5leHQtY2hhciAjXNC5KQogICAgICAgICAgICAgKG1lbWJlciBuZXh0LWNoYXIgJygjXNC1ICNc0ZEgI1zRjiAjXNGPKSA6dGVzdCAjJ2NoYXI9KSkpCiAgICAgICAodm93ZWwtcCAoZWx0IGNoYXJzIGluZGV4KSkpKQoKOzsg0KDQsNC30LHQuNC10L3QuNC1INGB0LvQvtCy0LAg0L3QsCDRgdC70L7Qs9C4INC/0L4g0L/RgNCw0LLQuNC70LDQvCDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAgKNGA0LXQutGD0YDRgdC40LLQvdCw0Y8g0LLQtdGA0YHQuNGPINCx0LXQtyBTRVRGKQooZGVmdW4gc3BsaXQtd29yZCAod29yZCkKICAobGFiZWxzICgoc3BsaXQtd29yZC1yZWN1cnNpdmUgKGNoYXJzIHN5bGxhYmxlcyBjdXJyZW50IGkpCiAgICAgICAgICAgICAoY29uZAogICAgICAgICAgICAgICAoKD49IGkgKGxlbmd0aCBjaGFycykpCiAgICAgICAgICAgICAgICAoaWYgY3VycmVudAogICAgICAgICAgICAgICAgICAgIChyZXZlcnNlIChjb25zIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgc3lsbGFibGVzKSkKICAgICAgICAgICAgICAgICAgICAocmV2ZXJzZSBzeWxsYWJsZXMpKSkKICAgICAgICAgICAgICAgKHQKICAgICAgICAgICAgICAgIChsZXQgKChjaCAoZWx0IGNoYXJzIGkpKSkKICAgICAgICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgICAgICAoKHZvd2VsLXAgY2gpCiAgICAgICAgICAgICAgICAgICAgIChpZiAoeW90LWFmdGVyLXZvd2VsLXAgY2hhcnMgaSkKICAgICAgICAgICAgICAgICAgICAgICAgIChsZXQgKChuZXh0LWNoYXIgKGVsdCBjaGFycyAoMSsgaSkpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoKGNoYXI9IG5leHQtY2hhciAjXNC5KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobGV0ICgobmV3LWN1cnJlbnQgKGFwcGVuZCBjdXJyZW50IChsaXN0IGNoIG5leHQtY2hhcikpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtd29yZC1yZWN1cnNpdmUgY2hhcnMKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb25zIChjb2VyY2UgKHJldmVyc2UgbmV3LWN1cnJlbnQpICdzdHJpbmcpIHN5bGxhYmxlcykKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5pbAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKCsgaSAyKSkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICgobWVtYmVyIG5leHQtY2hhciAnKCNc0LUgI1zRkSAjXNGOICNc0Y8pIDp0ZXN0ICMnY2hhcj0pCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChzcGxpdC13b3JkLXJlY3Vyc2l2ZSBjaGFycwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb25zIChjb2VyY2UgKHJldmVyc2UgKGNvbnMgY2ggY3VycmVudCkpICdzdHJpbmcpIHN5bGxhYmxlcykKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuaWwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoKyBpIDEpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAodAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtd29yZC1yZWN1cnNpdmUgY2hhcnMKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29ucyAoY29lcmNlIChyZXZlcnNlIChjb25zIGNoIGN1cnJlbnQpKSAnc3RyaW5nKSBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmlsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKCsgaSAxKSkpKSkKICAgICAgICAgICAgICAgICAgICAgICAgIChzcGxpdC13b3JkLXJlY3Vyc2l2ZSBjaGFycwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb25zIChjb2VyY2UgKHJldmVyc2UgKGNvbnMgY2ggY3VycmVudCkpICdzdHJpbmcpIHN5bGxhYmxlcykKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuaWwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoKyBpIDEpKSkpCiAgICAgICAgICAgICAgICAgICAgKHQKICAgICAgICAgICAgICAgICAgICAgKHNwbGl0LXdvcmQtcmVjdXJzaXZlIGNoYXJzCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzeWxsYWJsZXMKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb25zIGNoIGN1cnJlbnQpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoKyBpIDEpKSkpKSkpKSkKICAgIChzcGxpdC13b3JkLXJlY3Vyc2l2ZSAoY29lcmNlIHdvcmQgJ2xpc3QpIG5pbCBuaWwgMCkpKQoKOzsg0KDQsNC30LHQuNC10L3QuNC1INGB0YLRgNC+0LrQuCDQvdCwINGB0LvQvtCy0LAgKNGA0LXQutGD0YDRgdC40LLQvdCw0Y8g0LLQtdGA0YHQuNGPINCx0LXQtyBTRVRGKQooZGVmdW4gc3BsaXQtc3RyaW5nIChzdHIpCiAgKGxhYmVscyAoKHNwbGl0LXN0cmluZy1yZWN1cnNpdmUgKHN0ciBjdXJyZW50LXdvcmQgd29yZHMpCiAgICAgICAgICAgICAoY29uZAogICAgICAgICAgICAgICAoKG51bGwgc3RyKQogICAgICAgICAgICAgICAgKGlmIGN1cnJlbnQtd29yZAogICAgICAgICAgICAgICAgICAgIChyZXZlcnNlIChjb25zIChjb2VyY2UgKHJldmVyc2UgY3VycmVudC13b3JkKSAnc3RyaW5nKSB3b3JkcykpCiAgICAgICAgICAgICAgICAgICAgKHJldmVyc2Ugd29yZHMpKSkKICAgICAgICAgICAgICAgKChjaGFyPSAoY2FyIHN0cikgI1xTcGFjZSkKICAgICAgICAgICAgICAgIChpZiBjdXJyZW50LXdvcmQKICAgICAgICAgICAgICAgICAgICAoc3BsaXQtc3RyaW5nLXJlY3Vyc2l2ZSAoY2RyIHN0cikgbmlsIChjb25zIChjb2VyY2UgKHJldmVyc2UgY3VycmVudC13b3JkKSAnc3RyaW5nKSB3b3JkcykpCiAgICAgICAgICAgICAgICAgICAgKHNwbGl0LXN0cmluZy1yZWN1cnNpdmUgKGNkciBzdHIpIG5pbCB3b3JkcykpKQogICAgICAgICAgICAgICAodAogICAgICAgICAgICAgICAgKHNwbGl0LXN0cmluZy1yZWN1cnNpdmUgKGNkciBzdHIpIChjb25zIChjYXIgc3RyKSBjdXJyZW50LXdvcmQpIHdvcmRzKSkpKSkKICAgIChzcGxpdC1zdHJpbmctcmVjdXJzaXZlIChjb2VyY2Ugc3RyICdsaXN0KSBuaWwgbmlsKSkpCgo7OyDQk9C70LDQstC90LDRjyDRhNGD0L3QutGG0LjRjyDRgSDQuNGB0L/QvtC70YzQt9C+0LLQsNC90LjQtdC8IE1BUENBUgooZGVmdW4gc3BsaXQtcGhyYXNlIChwaHJhc2UpCihtYXBjYXIgIydzcGxpdC13b3JkIChzcGxpdC1zdHJpbmcgcGhyYXNlKSkpCgo7OyDQotC10YHRggoocHJpbnQgKHNwbGl0LXBocmFzZSAi0L3QsNC/0LjRgdCw0YLRjCDQv9GA0L7Qs9GA0LDQvNC80YMiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItC00LDQvdCwINGE0YDQsNC30LAg0L3QsCDRgNGD0YHRgdC60L7QvCDRj9C30YvQutC1IikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQstC+0LnQvdCwLCDQvNC40YAsINGN0LLQsNC60YPQsNGC0L7RgCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0YHQutCw0LzQtdC50LrQsCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LLQsNC90L3QsCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LrQvtC70LvQtdC60YbQuNGPIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLRh9Cw0LkiKSkKCg==