;; Гласные буквы русского языка
(defun vowel-p (char)
  (member char '(#\а #\е #\ё #\и #\о #\у #\ы #\э #\ю #\я
                 #\А #\Е #\Ё #\И #\О #\У #\Ы #\Э #\Ю #\Я) 
          :test #'char=))
 
;; Разбиение слова на слоги по правилам русского языка
(defun split-word (word)
  (let ((chars (coerce word 'list))
        (syllables nil)
        (current nil))
    (dolist (ch chars)
      (push ch current)
      (when (vowel-p ch)
        (push (coerce (reverse current) 'string) syllables)
        (setf current nil)))
    (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)))
 
;; Тест
(print (split-phrase "написать программу "))
 
 

Ozsg0JPQu9Cw0YHQvdGL0LUg0LHRg9C60LLRiyDRgNGD0YHRgdC60L7Qs9C+INGP0LfRi9C60LAKKGRlZnVuIHZvd2VsLXAgKGNoYXIpCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNC1ICNc0ZEgI1zQuCAjXNC+ICNc0YMgI1zRiyAjXNGNICNc0Y4gI1zRjwogICAgICAgICAgICAgICAgICNc0JAgI1zQlSAjXNCBICNc0JggI1zQniAjXNCjICNc0KsgI1zQrSAjXNCuICNc0K8pIAogICAgICAgICAgOnRlc3QgIydjaGFyPSkpCgo7OyDQoNCw0LfQsdC40LXQvdC40LUg0YHQu9C+0LLQsCDQvdCwINGB0LvQvtCz0Lgg0L/QviDQv9GA0LDQstC40LvQsNC8INGA0YPRgdGB0LrQvtCz0L4g0Y/Qt9GL0LrQsAooZGVmdW4gc3BsaXQtd29yZCAod29yZCkKICAobGV0ICgoY2hhcnMgKGNvZXJjZSB3b3JkICdsaXN0KSkKICAgICAgICAoc3lsbGFibGVzIG5pbCkKICAgICAgICAoY3VycmVudCBuaWwpKQogICAgKGRvbGlzdCAoY2ggY2hhcnMpCiAgICAgIChwdXNoIGNoIGN1cnJlbnQpCiAgICAgICh3aGVuICh2b3dlbC1wIGNoKQogICAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgc3lsbGFibGVzKQogICAgICAgIChzZXRmIGN1cnJlbnQgbmlsKSkpCiAgICAod2hlbiBjdXJyZW50CiAgICAgIChpZiBzeWxsYWJsZXMKICAgICAgICAgIChzZXRmIChjYXIgc3lsbGFibGVzKQogICAgICAgICAgICAgICAgKGNvbmNhdGVuYXRlICdzdHJpbmcgKGNhciBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykpKQogICAgICAgICAgKHB1c2ggKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSBzeWxsYWJsZXMpKSkKICAgIChyZXZlcnNlIHN5bGxhYmxlcykpKQoKOzsg0KDQsNC30LHQuNC10L3QuNC1INGB0YLRgNC+0LrQuCDQvdCwINGB0LvQvtCy0LAKKGRlZnVuIHNwbGl0LXN0cmluZyAoc3RyKQogIChsZXQgKCh3b3JkcyBuaWwpIChjdXJyZW50IG5pbCkpCiAgICAoZG90aW1lcyAoaSAobGVuZ3RoIHN0cikpCiAgICAgIChsZXQgKChjaCAoY2hhciBzdHIgaSkpKQogICAgICAgIChpZiAoY2hhcj0gY2ggI1xTcGFjZSkKICAgICAgICAgICAgKHdoZW4gY3VycmVudAogICAgICAgICAgICAgIChwdXNoIChjb2VyY2UgKHJldmVyc2UgY3VycmVudCkgJ3N0cmluZykgd29yZHMpCiAgICAgICAgICAgICAgKHNldGYgY3VycmVudCBuaWwpKQogICAgICAgICAgICAocHVzaCBjaCBjdXJyZW50KSkpKQogICAgKHdoZW4gY3VycmVudAogICAgICAocHVzaCAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHdvcmRzKSkKICAgIChyZXZlcnNlIHdvcmRzKSkpCgo7OyDQk9C70LDQstC90LDRjyDRhNGD0L3QutGG0LjRjyDRgSDQuNGB0L/QvtC70YzQt9C+0LLQsNC90LjQtdC8IE1BUENBUgooZGVmdW4gc3BsaXQtcGhyYXNlIChwaHJhc2UpCiAgKG1hcGNhciAjJ3NwbGl0LXdvcmQgKHNwbGl0LXN0cmluZyBwaHJhc2UpKSkKCjs7INCi0LXRgdGCCihwcmludCAoc3BsaXQtcGhyYXNlICLQvdCw0L/QuNGB0LDRgtGMINC/0YDQvtCz0YDQsNC80LzRgyAiKSkKCg==