(defparameter *гласные* '(#\а #\у #\о #\ы #\и #\э #\я #\ю #\ё #\е))
(defparameter *сонорные* '(#\м #\н #\л #\р #\й #\мь #\нь #\ль #\рь)) ;"ь" для мягких согласных
(defparameter *шумные* '(#\б #\в #\г #\д #\ж #\з #\к #\п #\с #\т #\ф #\х #\ц #\ч #\ш #\щ
                         #\бь #\вь #\гь #\дь #\жь #\зь #\кь #\пь #\сь #\ть #\фь #\хь #\чь #\шь))
 
(defun звучность (символ)
  "Определяет звучность символа."
  (cond ((member символ *гласные*) 3)
        ((member символ *сонорные*) 2)
        ((member символ *шумные*) 1)
        (t 0))) ; Другие символы (не буквы)
 
(defun разделить-слово (слово)
 "Разбивает слово на основе принципа восходящей звучности."
 (let ((слоги '())
       (текущий-слог '())
       (предыдущая-звучность 0))
  (loop for символ across слово
     do (let ((текущая-звучность (звучность символ)))
       (cond 
         ((= текущая-звучность 0) ;Если символ не буква игнорируем
          (format t "Символ ~A не буква, игнорируется~%" символ))
 
         ((> текущая-звучность предыдущая-звучность)  ; Восходящая звучность
          (push символ текущий-слог) )
         ((= предыдущая-звучность 0) ;Первый символ
          (push символ текущий-слог))
         (t
          ; Смена слога (не восходящая звучность)
          (push (reverse текущий-слог) слоги)
          (setf текущий-слог (list символ)))
      (setf предыдущая-звучность текущая-звучность))))
 
 (when текущий-слог
  (push (reverse текущий-слог) слоги))
 (reverse (mapcar #'(lambda (слог) (coerce слог 'string)) слоги))))
 
(defun разделить-предложение (предложение)
  "Разбивает предложение на слоги."
  (mapcar #'разделить-слово предложение))
 
;; Пример
(let ((предложение '("книга" "иначе" "полотно" "война" "майка" "конспект" "волга" "пушка" "изба")))
  (format t "Предложение: ~A~%" предложение)
  (format t "Слоги: ~A~%" (разделить-предложение предложение)))
 
(let ((предложение '("электростанция")))
   (format t "Предложение: ~A~%" предложение)
   (format t "Слоги: ~A~%" (разделить-предложение предложение)))

KGRlZnBhcmFtZXRlciAq0LPQu9Cw0YHQvdGL0LUqICcoI1zQsCAjXNGDICNc0L4gI1zRiyAjXNC4ICNc0Y0gI1zRjyAjXNGOICNc0ZEgI1zQtSkpCihkZWZwYXJhbWV0ZXIgKtGB0L7QvdC+0YDQvdGL0LUqICcoI1zQvCAjXNC9ICNc0LsgI1zRgCAjXNC5ICNc0LzRjCAjXNC90YwgI1zQu9GMICNc0YDRjCkpIDsi0YwiINC00LvRjyDQvNGP0LPQutC40YUg0YHQvtCz0LvQsNGB0L3Ri9GFCihkZWZwYXJhbWV0ZXIgKtGI0YPQvNC90YvQtSogJygjXNCxICNc0LIgI1zQsyAjXNC0ICNc0LYgI1zQtyAjXNC6ICNc0L8gI1zRgSAjXNGCICNc0YQgI1zRhSAjXNGGICNc0YcgI1zRiCAjXNGJCiAgICAgICAgICAgICAgICAgICAgICAgICAjXNCx0YwgI1zQstGMICNc0LPRjCAjXNC00YwgI1zQttGMICNc0LfRjCAjXNC60YwgI1zQv9GMICNc0YHRjCAjXNGC0YwgI1zRhNGMICNc0YXRjCAjXNGH0YwgI1zRiNGMKSkKCihkZWZ1biDQt9Cy0YPRh9C90L7RgdGC0YwgKNGB0LjQvNCy0L7QuykKICAi0J7Qv9GA0LXQtNC10LvRj9C10YIg0LfQstGD0YfQvdC+0YHRgtGMINGB0LjQvNCy0L7Qu9CwLiIKICAoY29uZCAoKG1lbWJlciDRgdC40LzQstC+0LsgKtCz0LvQsNGB0L3Ri9C1KikgMykKICAgICAgICAoKG1lbWJlciDRgdC40LzQstC+0LsgKtGB0L7QvdC+0YDQvdGL0LUqKSAyKQogICAgICAgICgobWVtYmVyINGB0LjQvNCy0L7QuyAq0YjRg9C80L3Ri9C1KikgMSkKICAgICAgICAodCAwKSkpIDsg0JTRgNGD0LPQuNC1INGB0LjQvNCy0L7Qu9GLICjQvdC1INCx0YPQutCy0YspCgooZGVmdW4g0YDQsNC30LTQtdC70LjRgtGMLdGB0LvQvtCy0L4gKNGB0LvQvtCy0L4pCiAi0KDQsNC30LHQuNCy0LDQtdGCINGB0LvQvtCy0L4g0L3QsCDQvtGB0L3QvtCy0LUg0L/RgNC40L3RhtC40L/QsCDQstC+0YHRhdC+0LTRj9GJ0LXQuSDQt9Cy0YPRh9C90L7RgdGC0LguIgogKGxldCAoKNGB0LvQvtCz0LggJygpKQogICAgICAgKNGC0LXQutGD0YnQuNC5LdGB0LvQvtCzICcoKSkKICAgICAgICjQv9GA0LXQtNGL0LTRg9GJ0LDRjy3Qt9Cy0YPRh9C90L7RgdGC0YwgMCkpCiAgKGxvb3AgZm9yINGB0LjQvNCy0L7QuyBhY3Jvc3Mg0YHQu9C+0LLQvgogICAgIGRvIChsZXQgKCjRgtC10LrRg9GJ0LDRjy3Qt9Cy0YPRh9C90L7RgdGC0YwgKNC30LLRg9GH0L3QvtGB0YLRjCDRgdC40LzQstC+0LspKSkKICAgICAgIChjb25kIAogICAgICAgICAoKD0g0YLQtdC60YPRidCw0Y8t0LfQstGD0YfQvdC+0YHRgtGMIDApIDvQldGB0LvQuCDRgdC40LzQstC+0Lsg0L3QtSDQsdGD0LrQstCwINC40LPQvdC+0YDQuNGA0YPQtdC8CiAgICAgICAgICAoZm9ybWF0IHQgItCh0LjQvNCy0L7QuyB+QSDQvdC1INCx0YPQutCy0LAsINC40LPQvdC+0YDQuNGA0YPQtdGC0YHRj34lIiDRgdC40LzQstC+0LspKQoKICAgICAgICAgKCg+INGC0LXQutGD0YnQsNGPLdC30LLRg9GH0L3QvtGB0YLRjCDQv9GA0LXQtNGL0LTRg9GJ0LDRjy3Qt9Cy0YPRh9C90L7RgdGC0YwpICA7INCS0L7RgdGF0L7QtNGP0YnQsNGPINC30LLRg9GH0L3QvtGB0YLRjAogICAgICAgICAgKHB1c2gg0YHQuNC80LLQvtC7INGC0LXQutGD0YnQuNC5LdGB0LvQvtCzKSApCiAgICAgICAgICgoPSDQv9GA0LXQtNGL0LTRg9GJ0LDRjy3Qt9Cy0YPRh9C90L7RgdGC0YwgMCkgO9Cf0LXRgNCy0YvQuSDRgdC40LzQstC+0LsKICAgICAgICAgIChwdXNoINGB0LjQvNCy0L7QuyDRgtC10LrRg9GJ0LjQuS3RgdC70L7QsykpCiAgICAgICAgICh0CiAgICAgICAgICA7INCh0LzQtdC90LAg0YHQu9C+0LPQsCAo0L3QtSDQstC+0YHRhdC+0LTRj9GJ0LDRjyDQt9Cy0YPRh9C90L7RgdGC0YwpCiAgICAgICAgICAocHVzaCAocmV2ZXJzZSDRgtC10LrRg9GJ0LjQuS3RgdC70L7Qsykg0YHQu9C+0LPQuCkKICAgICAgICAgIChzZXRmINGC0LXQutGD0YnQuNC5LdGB0LvQvtCzIChsaXN0INGB0LjQvNCy0L7QuykpKQogICAgICAoc2V0ZiDQv9GA0LXQtNGL0LTRg9GJ0LDRjy3Qt9Cy0YPRh9C90L7RgdGC0Ywg0YLQtdC60YPRidCw0Y8t0LfQstGD0YfQvdC+0YHRgtGMKSkpKQoKICh3aGVuINGC0LXQutGD0YnQuNC5LdGB0LvQvtCzCiAgKHB1c2ggKHJldmVyc2Ug0YLQtdC60YPRidC40Lkt0YHQu9C+0LMpINGB0LvQvtCz0LgpKQogKHJldmVyc2UgKG1hcGNhciAjJyhsYW1iZGEgKNGB0LvQvtCzKSAoY29lcmNlINGB0LvQvtCzICdzdHJpbmcpKSDRgdC70L7Qs9C4KSkpKQoKKGRlZnVuINGA0LDQt9C00LXQu9C40YLRjC3Qv9GA0LXQtNC70L7QttC10L3QuNC1ICjQv9GA0LXQtNC70L7QttC10L3QuNC1KQogICLQoNCw0LfQsdC40LLQsNC10YIg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwINGB0LvQvtCz0LguIgogIChtYXBjYXIgIyfRgNCw0LfQtNC10LvQuNGC0Ywt0YHQu9C+0LLQviDQv9GA0LXQtNC70L7QttC10L3QuNC1KSkKCjs7INCf0YDQuNC80LXRgAoobGV0ICgo0L/RgNC10LTQu9C+0LbQtdC90LjQtSAnKCLQutC90LjQs9CwIiAi0LjQvdCw0YfQtSIgItC/0L7Qu9C+0YLQvdC+IiAi0LLQvtC50L3QsCIgItC80LDQudC60LAiICLQutC+0L3RgdC/0LXQutGCIiAi0LLQvtC70LPQsCIgItC/0YPRiNC60LAiICLQuNC30LHQsCIpKSkKICAoZm9ybWF0IHQgItCf0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICLQodC70L7Qs9C4OiB+QX4lIiAo0YDQsNC30LTQtdC70LjRgtGMLdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkpKQoKKGxldCAoKNC/0YDQtdC00LvQvtC20LXQvdC40LUgJygi0Y3Qu9C10LrRgtGA0L7RgdGC0LDQvdGG0LjRjyIpKSkKICAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogICAoZm9ybWF0IHQgItCh0LvQvtCz0Lg6IH5BfiUiICjRgNCw0LfQtNC10LvQuNGC0Ywt0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQv9GA0LXQtNC70L7QttC10L3QuNC1KSkp