;; Глобальные константы
(defconstant +glasn+ '(#\А #\Е #\Ё #\И #\О #\У #\Ы #\Э #\Ю #\Я #\а #\е #\ё #\и #\о #\у #\ы #\э #\ю #\я)
  "Список гласных букв")
(defconstant +sonorn+ '(#\Л #\М #\Н #\Р #\л #\м #\н #\р #\Й #\й)
  "Список сонорных согласных букв")
 
;;; Проверка гласной
(defun glasn (char)
  (member char +glasn+ :test #'char-equal))
 
;;; Проверка сонорного согласного
(defun sonorn (char)
  (member char +sonorn+ :test #'char-equal))
 
;;; Проверка шумного согласного (не гласная и не сонорная)
(defun shumn (char)
  (and (characterp char)
       (not (glasn char))
       (not (sonorn char))))
 
;;; Разбиение слова на слоги (упрощённый и исправленный вариант)
(defun razbit-na-slogi (word)
  (let ((slogi '())
        (current-slog '()))
    (labels ((add-slog ()
               (when current-slog
                 (push (coerce (nreverse current-slog) 'string) slogi)
                 (setf current-slog '()))))
      (dotimes (i (length word))
        (let ((char (char word i)))
          (push char current-slog)
          (when (glasn char)
            (if (<= (length current-slog) 1)
                (add-slog)
                (let* ((rev-slog (reverse current-slog))
                       (last1 (nth 0 rev-slog))  ; последний символ (гласная)
                       (last2 (nth 1 rev-slog))) ; предпоследний символ
                  (cond
                    ;; Два шумных подряд - последний переходит в следующий слог
                    ((and (shumn last1) (shumn last2))
                     (push last1 rev-slog) ;; возвращаем последний назад
                     (setf current-slog (list last1))
                     (add-slog))
                    ;; Два сонорных подряд, кроме 'й' - последний переходит в следующий слог
                    ((and (sonorn last1) (sonorn last2) (not (char-equal last1 #\й)))
                     (push last1 rev-slog)
                     (setf current-slog (list last1))
                     (add-slog))
                    ;; Иначе разделяем здесь
                    (t (add-slog))))))))
      ;; Добавляем последний слог, если остался
      (when current-slog
        (push (coerce (nreverse current-slog) 'string) slogi))
      ;; Возвращаем слоги в правильном порядке
      (nreverse slogi))))
 
;;; Примеры использования
(print (list "здравствуй" (razbit-na-slogi "здравствуй")))
(print (list "школа" (razbit-na-slogi "школа")))
(print (list "майка" (razbit-na-slogi "майка")))
(print (list "лампочка" (razbit-na-slogi "лампочка")))
(print (list "космос" (razbit-na-slogi "космос")))
(print (list "алгоритм" (razbit-na-slogi "алгоритм")))
(print (list "интервенция" (razbit-na-slogi "интервенция")))
(print (list "иньекция" (razbit-na-slogi "иньекция")))

Ozsg0JPQu9C+0LHQsNC70YzQvdGL0LUg0LrQvtC90YHRgtCw0L3RgtGLCihkZWZjb25zdGFudCArZ2xhc24rICcoI1zQkCAjXNCVICNc0IEgI1zQmCAjXNCeICNc0KMgI1zQqyAjXNCtICNc0K4gI1zQryAjXNCwICNc0LUgI1zRkSAjXNC4ICNc0L4gI1zRgyAjXNGLICNc0Y0gI1zRjiAjXNGPKQogICLQodC/0LjRgdC+0Log0LPQu9Cw0YHQvdGL0YUg0LHRg9C60LIiKQooZGVmY29uc3RhbnQgK3Nvbm9ybisgJygjXNCbICNc0JwgI1zQnSAjXNCgICNc0LsgI1zQvCAjXNC9ICNc0YAgI1zQmSAjXNC5KQogICLQodC/0LjRgdC+0Log0YHQvtC90L7RgNC90YvRhSDRgdC+0LPQu9Cw0YHQvdGL0YUg0LHRg9C60LIiKQoKOzs7INCf0YDQvtCy0LXRgNC60LAg0LPQu9Cw0YHQvdC+0LkKKGRlZnVuIGdsYXNuIChjaGFyKQogIChtZW1iZXIgY2hhciArZ2xhc24rIDp0ZXN0ICMnY2hhci1lcXVhbCkpCgo7Ozsg0J/RgNC+0LLQtdGA0LrQsCDRgdC+0L3QvtGA0L3QvtCz0L4g0YHQvtCz0LvQsNGB0L3QvtCz0L4KKGRlZnVuIHNvbm9ybiAoY2hhcikKICAobWVtYmVyIGNoYXIgK3Nvbm9ybisgOnRlc3QgIydjaGFyLWVxdWFsKSkKCjs7OyDQn9GA0L7QstC10YDQutCwINGI0YPQvNC90L7Qs9C+INGB0L7Qs9C70LDRgdC90L7Qs9C+ICjQvdC1INCz0LvQsNGB0L3QsNGPINC4INC90LUg0YHQvtC90L7RgNC90LDRjykKKGRlZnVuIHNodW1uIChjaGFyKQogIChhbmQgKGNoYXJhY3RlcnAgY2hhcikKICAgICAgIChub3QgKGdsYXNuIGNoYXIpKQogICAgICAgKG5vdCAoc29ub3JuIGNoYXIpKSkpCgo7Ozsg0KDQsNC30LHQuNC10L3QuNC1INGB0LvQvtCy0LAg0L3QsCDRgdC70L7Qs9C4ICjRg9C/0YDQvtGJ0ZHQvdC90YvQuSDQuCDQuNGB0L/RgNCw0LLQu9C10L3QvdGL0Lkg0LLQsNGA0LjQsNC90YIpCihkZWZ1biByYXpiaXQtbmEtc2xvZ2kgKHdvcmQpCiAgKGxldCAoKHNsb2dpICcoKSkKICAgICAgICAoY3VycmVudC1zbG9nICcoKSkpCiAgICAobGFiZWxzICgoYWRkLXNsb2cgKCkKICAgICAgICAgICAgICAgKHdoZW4gY3VycmVudC1zbG9nCiAgICAgICAgICAgICAgICAgKHB1c2ggKGNvZXJjZSAobnJldmVyc2UgY3VycmVudC1zbG9nKSAnc3RyaW5nKSBzbG9naSkKICAgICAgICAgICAgICAgICAoc2V0ZiBjdXJyZW50LXNsb2cgJygpKSkpKQogICAgICAoZG90aW1lcyAoaSAobGVuZ3RoIHdvcmQpKQogICAgICAgIChsZXQgKChjaGFyIChjaGFyIHdvcmQgaSkpKQogICAgICAgICAgKHB1c2ggY2hhciBjdXJyZW50LXNsb2cpCiAgICAgICAgICAod2hlbiAoZ2xhc24gY2hhcikKICAgICAgICAgICAgKGlmICg8PSAobGVuZ3RoIGN1cnJlbnQtc2xvZykgMSkKICAgICAgICAgICAgICAgIChhZGQtc2xvZykKICAgICAgICAgICAgICAgIChsZXQqICgocmV2LXNsb2cgKHJldmVyc2UgY3VycmVudC1zbG9nKSkKICAgICAgICAgICAgICAgICAgICAgICAobGFzdDEgKG50aCAwIHJldi1zbG9nKSkgIDsg0L/QvtGB0LvQtdC00L3QuNC5INGB0LjQvNCy0L7QuyAo0LPQu9Cw0YHQvdCw0Y8pCiAgICAgICAgICAgICAgICAgICAgICAgKGxhc3QyIChudGggMSByZXYtc2xvZykpKSA7INC/0YDQtdC00L/QvtGB0LvQtdC00L3QuNC5INGB0LjQvNCy0L7QuwogICAgICAgICAgICAgICAgICAoY29uZAogICAgICAgICAgICAgICAgICAgIDs7INCU0LLQsCDRiNGD0LzQvdGL0YUg0L/QvtC00YDRj9C0IC0g0L/QvtGB0LvQtdC00L3QuNC5INC/0LXRgNC10YXQvtC00LjRgiDQsiDRgdC70LXQtNGD0Y7RidC40Lkg0YHQu9C+0LMKICAgICAgICAgICAgICAgICAgICAoKGFuZCAoc2h1bW4gbGFzdDEpIChzaHVtbiBsYXN0MikpCiAgICAgICAgICAgICAgICAgICAgIChwdXNoIGxhc3QxIHJldi1zbG9nKSA7OyDQstC+0LfQstGA0LDRidCw0LXQvCDQv9C+0YHQu9C10LTQvdC40Lkg0L3QsNC30LDQtAogICAgICAgICAgICAgICAgICAgICAoc2V0ZiBjdXJyZW50LXNsb2cgKGxpc3QgbGFzdDEpKQogICAgICAgICAgICAgICAgICAgICAoYWRkLXNsb2cpKQogICAgICAgICAgICAgICAgICAgIDs7INCU0LLQsCDRgdC+0L3QvtGA0L3Ri9GFINC/0L7QtNGA0Y/QtCwg0LrRgNC+0LzQtSAn0LknIC0g0L/QvtGB0LvQtdC00L3QuNC5INC/0LXRgNC10YXQvtC00LjRgiDQsiDRgdC70LXQtNGD0Y7RidC40Lkg0YHQu9C+0LMKICAgICAgICAgICAgICAgICAgICAoKGFuZCAoc29ub3JuIGxhc3QxKSAoc29ub3JuIGxhc3QyKSAobm90IChjaGFyLWVxdWFsIGxhc3QxICNc0LkpKSkKICAgICAgICAgICAgICAgICAgICAgKHB1c2ggbGFzdDEgcmV2LXNsb2cpCiAgICAgICAgICAgICAgICAgICAgIChzZXRmIGN1cnJlbnQtc2xvZyAobGlzdCBsYXN0MSkpCiAgICAgICAgICAgICAgICAgICAgIChhZGQtc2xvZykpCiAgICAgICAgICAgICAgICAgICAgOzsg0JjQvdCw0YfQtSDRgNCw0LfQtNC10LvRj9C10Lwg0LfQtNC10YHRjAogICAgICAgICAgICAgICAgICAgICh0IChhZGQtc2xvZykpKSkpKSkpCiAgICAgIDs7INCU0L7QsdCw0LLQu9GP0LXQvCDQv9C+0YHQu9C10LTQvdC40Lkg0YHQu9C+0LMsINC10YHQu9C4INC+0YHRgtCw0LvRgdGPCiAgICAgICh3aGVuIGN1cnJlbnQtc2xvZwogICAgICAgIChwdXNoIChjb2VyY2UgKG5yZXZlcnNlIGN1cnJlbnQtc2xvZykgJ3N0cmluZykgc2xvZ2kpKQogICAgICA7OyDQktC+0LfQstGA0LDRidCw0LXQvCDRgdC70L7Qs9C4INCyINC/0YDQsNCy0LjQu9GM0L3QvtC8INC/0L7RgNGP0LTQutC1CiAgICAgIChucmV2ZXJzZSBzbG9naSkpKSkKCjs7OyDQn9GA0LjQvNC10YDRiyDQuNGB0L/QvtC70YzQt9C+0LLQsNC90LjRjwoocHJpbnQgKGxpc3QgItC30LTRgNCw0LLRgdGC0LLRg9C5IiAocmF6Yml0LW5hLXNsb2dpICLQt9C00YDQsNCy0YHRgtCy0YPQuSIpKSkKKHByaW50IChsaXN0ICLRiNC60L7Qu9CwIiAocmF6Yml0LW5hLXNsb2dpICLRiNC60L7Qu9CwIikpKQoocHJpbnQgKGxpc3QgItC80LDQudC60LAiIChyYXpiaXQtbmEtc2xvZ2kgItC80LDQudC60LAiKSkpCihwcmludCAobGlzdCAi0LvQsNC80L/QvtGH0LrQsCIgKHJhemJpdC1uYS1zbG9naSAi0LvQsNC80L/QvtGH0LrQsCIpKSkKKHByaW50IChsaXN0ICLQutC+0YHQvNC+0YEiIChyYXpiaXQtbmEtc2xvZ2kgItC60L7RgdC80L7RgSIpKSkKKHByaW50IChsaXN0ICLQsNC70LPQvtGA0LjRgtC8IiAocmF6Yml0LW5hLXNsb2dpICLQsNC70LPQvtGA0LjRgtC8IikpKQoocHJpbnQgKGxpc3QgItC40L3RgtC10YDQstC10L3RhtC40Y8iIChyYXpiaXQtbmEtc2xvZ2kgItC40L3RgtC10YDQstC10L3RhtC40Y8iKSkpCihwcmludCAobGlzdCAi0LjQvdGM0LXQutGG0LjRjyIgKHJhemJpdC1uYS1zbG9naSAi0LjQvdGM0LXQutGG0LjRjyIpKSk=