;; Гласные буквы русского языка
(defun vowel-p (char)
  (member char '(#\а #\е #\ё #\и #\о #\у #\ы #\э #\ю #\я
                 #\А #\Е #\Ё #\И #\О #\У #\Ы #\Э #\Ю #\Я)
          :test #'char=))
 
;; Согласные буквы русского языка
(defun consonant-p (char)
  (not (vowel-p char)))
 
;; Функция для проверки наличия "й" после гласной
(defun yot-after-vowel-p (chars index)
  (and (< index (1- (length chars)))
       (char= (elt chars (1+ index)) #\й)
       (vowel-p (elt chars index))))
 
;; Функция для проверки наличия удвоенной согласной после гласной
(defun double-consonant-after-vowel-p (chars index)
  (and (< index (1- (length chars)))
       (consonant-p (elt chars (1+ index)))
       (char= (elt chars index) (elt chars (1+ 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
                        (push (elt chars (incf i)) current) ;включить "й" в текущий слог
                        (push (coerce (reverse current) 'string) syllables)
                        (setf current nil))
                      ; Проверка на удвоенную согласную после гласной
                      (if (double-consonant-after-vowel-p chars i)
                          (progn
                            (push (coerce (reverse current) 'string) syllables) ;закончить слог с гласной
                            (setf syllables (cons (string (elt chars (incf i))) 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 "длинный"))
(print (split-phrase "касса"))
(print (split-phrase "ван-на"))
 

Ozsg0JPQu9Cw0YHQvdGL0LUg0LHRg9C60LLRiyDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAKKGRlZnVuIHZvd2VsLXAgKGNoYXIpCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNC1ICNc0ZEgI1zQuCAjXNC+ICNc0YMgI1zRiyAjXNGNICNc0Y4gI1zRjwogICAgICAgICAgICAgICAgICNc0JAgI1zQlSAjXNCBICNc0JggI1zQniAjXNCjICNc0KsgI1zQrSAjXNCuICNc0K8pCiAgICAgICAgICA6dGVzdCAjJ2NoYXI9KSkKCjs7INCh0L7Qs9C70LDRgdC90YvQtSDQsdGD0LrQstGLINGA0YPRgdGB0LrQvtCz0L4g0Y/Qt9GL0LrQsAooZGVmdW4gY29uc29uYW50LXAgKGNoYXIpCiAgKG5vdCAodm93ZWwtcCBjaGFyKSkpCgo7OyDQpNGD0L3QutGG0LjRjyDQtNC70Y8g0L/RgNC+0LLQtdGA0LrQuCDQvdCw0LvQuNGH0LjRjyAi0LkiINC/0L7RgdC70LUg0LPQu9Cw0YHQvdC+0LkKKGRlZnVuIHlvdC1hZnRlci12b3dlbC1wIChjaGFycyBpbmRleCkKICAoYW5kICg8IGluZGV4ICgxLSAobGVuZ3RoIGNoYXJzKSkpCiAgICAgICAoY2hhcj0gKGVsdCBjaGFycyAoMSsgaW5kZXgpKSAjXNC5KQogICAgICAgKHZvd2VsLXAgKGVsdCBjaGFycyBpbmRleCkpKSkKCjs7INCk0YPQvdC60YbQuNGPINC00LvRjyDQv9GA0L7QstC10YDQutC4INC90LDQu9C40YfQuNGPINGD0LTQstC+0LXQvdC90L7QuSDRgdC+0LPQu9Cw0YHQvdC+0Lkg0L/QvtGB0LvQtSDQs9C70LDRgdC90L7QuQooZGVmdW4gZG91YmxlLWNvbnNvbmFudC1hZnRlci12b3dlbC1wIChjaGFycyBpbmRleCkKICAoYW5kICg8IGluZGV4ICgxLSAobGVuZ3RoIGNoYXJzKSkpCiAgICAgICAoY29uc29uYW50LXAgKGVsdCBjaGFycyAoMSsgaW5kZXgpKSkKICAgICAgIChjaGFyPSAoZWx0IGNoYXJzIGluZGV4KSAoZWx0IGNoYXJzICgxKyBpbmRleCkpKSkpCgo7OyDQoNCw0LfQsdC40LXQvdC40LUg0YHQu9C+0LLQsCDQvdCwINGB0LvQvtCz0Lgg0L/QviDQv9GA0LDQstC40LvQsNC8INGA0YPRgdGB0LrQvtCz0L4g0Y/Qt9GL0LrQsCAo0YPQu9GD0YfRiNC10L3QvdCw0Y8g0LLQtdGA0YHQuNGPKQooZGVmdW4gc3BsaXQtd29yZCAod29yZCkKICAobGV0ICgoY2hhcnMgKGNvZXJjZSB3b3JkICdsaXN0KSkKICAgICAgICAoc3lsbGFibGVzIG5pbCkKICAgICAgICAoY3VycmVudCBuaWwpCiAgICAgICAgKGkgMCkpCiAgICAobG9vcCB3aGlsZSAoPCBpIChsZW5ndGggY2hhcnMpKQogICAgICAgICAgZG8gKGxldCAoKGNoIChlbHQgY2hhcnMgaSkpKQogICAgICAgICAgICAgICAocHVzaCBjaCBjdXJyZW50KQogICAgICAgICAgICAgICAoY29uZAogICAgICAgICAgICAgICAgICgodm93ZWwtcCBjaCkKICAgICAgICAgICAgICAgICAgO9Cf0YDQvtCy0LXRgNC60LAg0L3QsCAi0LkiINC/0L7RgdC70LUg0LPQu9Cw0YHQvdC+0LkKICAgICAgICAgICAgICAgICAgKGlmICh5b3QtYWZ0ZXItdm93ZWwtcCBjaGFycyBpKQogICAgICAgICAgICAgICAgICAgICAgKHByb2duCiAgICAgICAgICAgICAgICAgICAgICAgIChwdXNoIChlbHQgY2hhcnMgKGluY2YgaSkpIGN1cnJlbnQpIDvQstC60LvRjtGH0LjRgtGMICLQuSIg0LIg0YLQtdC60YPRidC40Lkg0YHQu9C+0LMKICAgICAgICAgICAgICAgICAgICAgICAgKHB1c2ggKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAgICAgICAgIChzZXRmIGN1cnJlbnQgbmlsKSkKICAgICAgICAgICAgICAgICAgICAgIDsg0J/RgNC+0LLQtdGA0LrQsCDQvdCwINGD0LTQstC+0LXQvdC90YPRjiDRgdC+0LPQu9Cw0YHQvdGD0Y4g0L/QvtGB0LvQtSDQs9C70LDRgdC90L7QuQogICAgICAgICAgICAgICAgICAgICAgKGlmIChkb3VibGUtY29uc29uYW50LWFmdGVyLXZvd2VsLXAgY2hhcnMgaSkKICAgICAgICAgICAgICAgICAgICAgICAgICAocHJvZ24KICAgICAgICAgICAgICAgICAgICAgICAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgc3lsbGFibGVzKSA70LfQsNC60L7QvdGH0LjRgtGMINGB0LvQvtCzINGBINCz0LvQsNGB0L3QvtC5CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAoc2V0ZiBzeWxsYWJsZXMgKGNvbnMgKHN0cmluZyAoZWx0IGNoYXJzIChpbmNmIGkpKSkgc3lsbGFibGVzKSkgOyDQodC+0LfQtNCw0YLRjCDQvdC+0LLRi9C5INGB0LvQvtCzINGBINGB0L7Qs9C70LDRgdC90L7QuSDQuCDQtNC+0LHQsNCy0LjRgtGMINC10LPQvgogICAgICAgICAgICAgICAgICAgICAgICAgICAgKHNldGYgY3VycmVudCBuaWwpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICkKICAgICAgICAgICAgICAgICAgICAgICAgIChwcm9nbgogICAgICAgICAgICAgICAgICAgICAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgc3lsbGFibGVzKQogICAgICAgICAgICAgICAgICAgICAgICAgIChzZXRmIGN1cnJlbnQgbmlsKSkpKQogICAgICAgICAgICAgICAgICApCiAgICAgICAgICAgICAgICAgKHQgbmlsKSkgO9C/0YDQvtGB0YLQviDQv9GA0L7QtNC+0LvQttCw0LXQvCwg0LXRgdC70Lgg0Y3RgtC+INC90LUg0LPQu9Cw0YHQvdCw0Y8KCiAgICAgICAgICAgICAgIChpbmNmIGkpKSkgO9C/0LXRgNC10LnRgtC4INC6INGB0LvQtdC00YPRjtGJ0LXQvNGDINGB0LjQvNCy0L7Qu9GDCgogICAgKHdoZW4gY3VycmVudCAgO9Ce0LHRgNCw0LHQvtGC0LrQsCDQvtGB0YLQsNGC0LrQsCDQsiDQutC+0L3RhtC1INGB0LvQvtCy0LAKICAgICAgKGlmIHN5bGxhYmxlcwogICAgICAgICAgKHNldGYgKGNhciBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAoY29uY2F0ZW5hdGUgJ3N0cmluZyAoY2FyIHN5bGxhYmxlcykgKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSkpCiAgICAgICAgICAocHVzaCAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHN5bGxhYmxlcykpKQogICAgKHJldmVyc2Ugc3lsbGFibGVzKSkpCgo7OyDQoNCw0LfQsdC40LXQvdC40LUg0YHRgtGA0L7QutC4INC90LAg0YHQu9C+0LLQsAooZGVmdW4gc3BsaXQtc3RyaW5nIChzdHIpCiAgKGxldCAoKHdvcmRzIG5pbCkgKGN1cnJlbnQgbmlsKSkKICAgIChkb3RpbWVzIChpIChsZW5ndGggc3RyKSkKICAgICAgKGxldCAoKGNoIChjaGFyIHN0ciBpKSkpCiAgICAgICAgKGlmIChjaGFyPSBjaCAjXFNwYWNlKQogICAgICAgICAgICAod2hlbiBjdXJyZW50CiAgICAgICAgICAgICAgKHB1c2ggKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSB3b3JkcykKICAgICAgICAgICAgICAoc2V0ZiBjdXJyZW50IG5pbCkpCiAgICAgICAgICAgIChwdXNoIGNoIGN1cnJlbnQpKSkpCiAgICAod2hlbiBjdXJyZW50CiAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgd29yZHMpKQogICAgKHJldmVyc2Ugd29yZHMpKSkKCjs7INCT0LvQsNCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGBINC40YHQv9C+0LvRjNC30L7QstCw0L3QuNC10LwgTUFQQ0FSCihkZWZ1biBzcGxpdC1waHJhc2UgKHBocmFzZSkKICAobWFwY2FyICMnc3BsaXQtd29yZCAoc3BsaXQtc3RyaW5nIHBocmFzZSkpKSAgOyBVc2luZyBNQVBDQVIKCjs7INCi0LXRgdGCCihwcmludCAoc3BsaXQtcGhyYXNlICLQvdCw0L/QuNGB0LDRgtGMINC/0YDQvtCz0YDQsNC80LzRgyAiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItC00LDQvdCwINGE0YDQsNC30LAg0L3QsCDRgNGD0YHRgdC60L7QvCDRj9C30YvQutC1ICIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LLQvtC50L3QsCwg0LzQuNGALCDRjdCy0LDQutGD0LDRgtC+0YAgIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLRgdC60LDQvNC10LnQutCwICIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LLQsNC90L3QsCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LrQvtC70LvQtdC60YbQuNGPIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQtNC70LjQvdC90YvQuSIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LrQsNGB0YHQsCIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LLQsNC9LdC90LAiKSkK