(defun гласная? (char)
  "Проверяет, является ли символ гласной буквой."
  (member char '(#\а #\у #\о #\ы #\и #\э #\я #\ю #\ё #\е) :test #'char-equal))
 
(defun согласная? (char)
  "Проверяет, является ли символ согласной буквой."
  (and (graphic-char-p char)
       (not (гласная? char))))
 
(defun дели-слово (слово)
  "Преобразует слово в список его букв."
  (coerce (string слово) 'list))
 
(defun дели-слово-рекурсия (начало конец)
  "Делит слово на две части (рекурсивно)."
  (cond
    ((null конец) (list начало nil))  ; Список букв закончился
    ((гласная? (first конец)) (list (append начало (list (first конец))) (rest конец))) ; Если гласная, то это конец слога
    ((согласная? (first конец))     ; Если первый символ - согласная
     (if (null (rest конец))   ; Если это последний символ, тоже завершаем слог
         (list (append начало (list (first конец))) nil)
         (дели-слово-рекурсия (append начало (list (first конец))) (rest конец))))
    (t (list начало конец))))  ; Символ не гласная и не согласная
 
(defun раздели-слово (слово)
  "Основная функция разделения слова."
  (let ((буквы (дели-слово слово)))
    (дели-слово-рекурсия '() буквы)))
 
(defun первый-слог (слово)
  "Возвращает первый слог слова."
  (let ((результат (раздели-слово слово)))
    (when (first результат)
      (coerce (first результат) 'string))))
 
(defun остаток-слова (слово)
  "Возвращает часть слова, идущую после первого слога."
  (let ((результат (раздели-слово слово)))
    (if (second результат)
      (coerce (second результат) 'string)
      "")))
 
(defun сплетник-слово (слово ключевое-слово)
  "Переводит одно слово на 'язык сплетника'."
  (let ((слог-слова (первый-слог слово))
        (слог-ключа (первый-слог ключевое-слово))
        (остаток-слова (остаток-слова слово))
        (остаток-ключа (остаток-слова ключевое-слово)))
    (list (concatenate 'string (if слог-ключа слог-ключа "") остаток-слова)
          (concatenate 'string (if слог-слова слог-слова "") остаток-ключа))))
 
(defun safe-string (arg)
  "Преобразует символ или число в строку, или возвращает строку без изменений."
  (cond ((stringp arg) arg)
        ((symbolp arg) (symbol-name arg))
        ((numberp arg) (write-to-string arg))
        (t "")))
 
(defun сплетник-предложение-safe (предложение ключевое-слово)
  "Безопасная версия для разнородных списков и отсутствия слов."
  (let ((ключевое-слово-str (safe-string ключевое-слово)))
    (mapcar #'(lambda (слово)
               (if (stringp слово) ; Проверяем, что слово - строка
                   (сплетник-слово слово ключевое-слово-str)
                   (list слово ключевое-слово-str))) ; Если не строка, просто возвращаем пару
            предложение)))
 
 
(defun сплетник-предложение (предложение ключевое-слово)
  "Переводит предложение на 'язык сплетника'."
  (mapcar #'(lambda (слово) (сплетник-слово слово ключевое-слово)) предложение))
 
 
;; Examples:
(let ((предложение '("слово" "переводится" "" 123 :символ nil "на" "язык" "сплетника"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение-safe предложение ключевое-слово)))
 
(let ((предложение '("мгла" "переводится" "на" "язык" "сплетника"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))
 
(let ((предложение '("написать" "программу" "обработки" "текста"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))
 
(let ((предложение '("отговорила" "роща" "золотая"))
      (ключевое-слово "кумир"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))

KGRlZnVuINCz0LvQsNGB0L3QsNGPPyAoY2hhcikKICAi0J/RgNC+0LLQtdGA0Y/QtdGCLCDRj9Cy0LvRj9C10YLRgdGPINC70Lgg0YHQuNC80LLQvtC7INCz0LvQsNGB0L3QvtC5INCx0YPQutCy0L7QuS4iCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNGDICNc0L4gI1zRiyAjXNC4ICNc0Y0gI1zRjyAjXNGOICNc0ZEgI1zQtSkgOnRlc3QgIydjaGFyLWVxdWFsKSkKCihkZWZ1biDRgdC+0LPQu9Cw0YHQvdCw0Y8/IChjaGFyKQogICLQn9GA0L7QstC10YDRj9C10YIsINGP0LLQu9GP0LXRgtGB0Y8g0LvQuCDRgdC40LzQstC+0Lsg0YHQvtCz0LvQsNGB0L3QvtC5INCx0YPQutCy0L7QuS4iCiAgKGFuZCAoZ3JhcGhpYy1jaGFyLXAgY2hhcikKICAgICAgIChub3QgKNCz0LvQsNGB0L3QsNGPPyBjaGFyKSkpKQoKKGRlZnVuINC00LXQu9C4LdGB0LvQvtCy0L4gKNGB0LvQvtCy0L4pCiAgItCf0YDQtdC+0LHRgNCw0LfRg9C10YIg0YHQu9C+0LLQviDQsiDRgdC/0LjRgdC+0Log0LXQs9C+INCx0YPQutCyLiIKICAoY29lcmNlIChzdHJpbmcg0YHQu9C+0LLQvikgJ2xpc3QpKQoKKGRlZnVuINC00LXQu9C4LdGB0LvQvtCy0L4t0YDQtdC60YPRgNGB0LjRjyAo0L3QsNGH0LDQu9C+INC60L7QvdC10YYpCiAgItCU0LXQu9C40YIg0YHQu9C+0LLQviDQvdCwINC00LLQtSDRh9Cw0YHRgtC4ICjRgNC10LrRg9GA0YHQuNCy0L3QvikuIgogIChjb25kCiAgICAoKG51bGwg0LrQvtC90LXRhikgKGxpc3Qg0L3QsNGH0LDQu9C+IG5pbCkpICA7INCh0L/QuNGB0L7QuiDQsdGD0LrQsiDQt9Cw0LrQvtC90YfQuNC70YHRjwogICAgKCjQs9C70LDRgdC90LDRjz8gKGZpcnN0INC60L7QvdC10YYpKSAobGlzdCAoYXBwZW5kINC90LDRh9Cw0LvQviAobGlzdCAoZmlyc3Qg0LrQvtC90LXRhikpKSAocmVzdCDQutC+0L3QtdGGKSkpIDsg0JXRgdC70Lgg0LPQu9Cw0YHQvdCw0Y8sINGC0L4g0Y3RgtC+INC60L7QvdC10YYg0YHQu9C+0LPQsAogICAgKCjRgdC+0LPQu9Cw0YHQvdCw0Y8/IChmaXJzdCDQutC+0L3QtdGGKSkgICAgIDsg0JXRgdC70Lgg0L/QtdGA0LLRi9C5INGB0LjQvNCy0L7QuyAtINGB0L7Qs9C70LDRgdC90LDRjwogICAgIChpZiAobnVsbCAocmVzdCDQutC+0L3QtdGGKSkgICA7INCV0YHQu9C4INGN0YLQviDQv9C+0YHQu9C10LTQvdC40Lkg0YHQuNC80LLQvtC7LCDRgtC+0LbQtSDQt9Cw0LLQtdGA0YjQsNC10Lwg0YHQu9C+0LMKICAgICAgICAgKGxpc3QgKGFwcGVuZCDQvdCw0YfQsNC70L4gKGxpc3QgKGZpcnN0INC60L7QvdC10YYpKSkgbmlsKQogICAgICAgICAo0LTQtdC70Lgt0YHQu9C+0LLQvi3RgNC10LrRg9GA0YHQuNGPIChhcHBlbmQg0L3QsNGH0LDQu9C+IChsaXN0IChmaXJzdCDQutC+0L3QtdGGKSkpIChyZXN0INC60L7QvdC10YYpKSkpCiAgICAodCAobGlzdCDQvdCw0YfQsNC70L4g0LrQvtC90LXRhikpKSkgIDsg0KHQuNC80LLQvtC7INC90LUg0LPQu9Cw0YHQvdCw0Y8g0Lgg0L3QtSDRgdC+0LPQu9Cw0YHQvdCw0Y8KCihkZWZ1biDRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+ICjRgdC70L7QstC+KQogICLQntGB0L3QvtCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGA0LDQt9C00LXQu9C10L3QuNGPINGB0LvQvtCy0LAuIgogIChsZXQgKCjQsdGD0LrQstGLICjQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICjQtNC10LvQuC3RgdC70L7QstC+LdGA0LXQutGD0YDRgdC40Y8gJygpINCx0YPQutCy0YspKSkKCihkZWZ1biDQv9C10YDQstGL0Lkt0YHQu9C+0LMgKNGB0LvQvtCy0L4pCiAgItCS0L7Qt9Cy0YDQsNGJ0LDQtdGCINC/0LXRgNCy0YvQuSDRgdC70L7QsyDRgdC70L7QstCwLiIKICAobGV0ICgo0YDQtdC30YPQu9GM0YLQsNGCICjRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICh3aGVuIChmaXJzdCDRgNC10LfRg9C70YzRgtCw0YIpCiAgICAgIChjb2VyY2UgKGZpcnN0INGA0LXQt9GD0LvRjNGC0LDRgikgJ3N0cmluZykpKSkKCihkZWZ1biDQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwICjRgdC70L7QstC+KQogICLQktC+0LfQstGA0LDRidCw0LXRgiDRh9Cw0YHRgtGMINGB0LvQvtCy0LAsINC40LTRg9GJ0YPRjiDQv9C+0YHQu9C1INC/0LXRgNCy0L7Qs9C+INGB0LvQvtCz0LAuIgogIChsZXQgKCjRgNC10LfRg9C70YzRgtCw0YIgKNGA0LDQt9C00LXQu9C4LdGB0LvQvtCy0L4g0YHQu9C+0LLQvikpKQogICAgKGlmIChzZWNvbmQg0YDQtdC30YPQu9GM0YLQsNGCKQogICAgICAoY29lcmNlIChzZWNvbmQg0YDQtdC30YPQu9GM0YLQsNGCKSAnc3RyaW5nKQogICAgICAiIikpKQoKKGRlZnVuINGB0L/Qu9C10YLQvdC40Lot0YHQu9C+0LLQviAo0YHQu9C+0LLQviDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCf0LXRgNC10LLQvtC00LjRgiDQvtC00L3QviDRgdC70L7QstC+INC90LAgJ9GP0LfRi9C6INGB0L/Qu9C10YLQvdC40LrQsCcuIgogIChsZXQgKCjRgdC70L7Qsy3RgdC70L7QstCwICjQv9C10YDQstGL0Lkt0YHQu9C+0LMg0YHQu9C+0LLQvikpCiAgICAgICAgKNGB0LvQvtCzLdC60LvRjtGH0LAgKNC/0LXRgNCy0YvQuS3RgdC70L7QsyDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKQogICAgICAgICjQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwICjQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwINGB0LvQvtCy0L4pKQogICAgICAgICjQvtGB0YLQsNGC0L7Qui3QutC70Y7Rh9CwICjQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQogICAgKGxpc3QgKGNvbmNhdGVuYXRlICdzdHJpbmcgKGlmINGB0LvQvtCzLdC60LvRjtGH0LAg0YHQu9C+0LMt0LrQu9GO0YfQsCAiIikg0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCkKICAgICAgICAgIChjb25jYXRlbmF0ZSAnc3RyaW5nIChpZiDRgdC70L7Qsy3RgdC70L7QstCwINGB0LvQvtCzLdGB0LvQvtCy0LAgIiIpINC+0YHRgtCw0YLQvtC6LdC60LvRjtGH0LApKSkpCgooZGVmdW4gc2FmZS1zdHJpbmcgKGFyZykKICAi0J/RgNC10L7QsdGA0LDQt9GD0LXRgiDRgdC40LzQstC+0Lsg0LjQu9C4INGH0LjRgdC70L4g0LIg0YHRgtGA0L7QutGDLCDQuNC70Lgg0LLQvtC30LLRgNCw0YnQsNC10YIg0YHRgtGA0L7QutGDINCx0LXQtyDQuNC30LzQtdC90LXQvdC40LkuIgogIChjb25kICgoc3RyaW5ncCBhcmcpIGFyZykKICAgICAgICAoKHN5bWJvbHAgYXJnKSAoc3ltYm9sLW5hbWUgYXJnKSkKICAgICAgICAoKG51bWJlcnAgYXJnKSAod3JpdGUtdG8tc3RyaW5nIGFyZykpCiAgICAgICAgKHQgIiIpKSkKCihkZWZ1biDRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUtc2FmZSAo0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCR0LXQt9C+0L/QsNGB0L3QsNGPINCy0LXRgNGB0LjRjyDQtNC70Y8g0YDQsNC30L3QvtGA0L7QtNC90YvRhSDRgdC/0LjRgdC60L7QsiDQuCDQvtGC0YHRg9GC0YHRgtCy0LjRjyDRgdC70L7Qsi4iCiAgKGxldCAoKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvi1zdHIgKHNhZmUtc3RyaW5nINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQogICAgKG1hcGNhciAjJyhsYW1iZGEgKNGB0LvQvtCy0L4pCiAgICAgICAgICAgICAgIChpZiAoc3RyaW5ncCDRgdC70L7QstC+KSA7INCf0YDQvtCy0LXRgNGP0LXQvCwg0YfRgtC+INGB0LvQvtCy0L4gLSDRgdGC0YDQvtC60LAKICAgICAgICAgICAgICAgICAgICjRgdC/0LvQtdGC0L3QuNC6LdGB0LvQvtCy0L4g0YHQu9C+0LLQviDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4tc3RyKQogICAgICAgICAgICAgICAgICAgKGxpc3Qg0YHQu9C+0LLQviDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4tc3RyKSkpIDsg0JXRgdC70Lgg0L3QtSDRgdGC0YDQvtC60LAsINC/0YDQvtGB0YLQviDQstC+0LfQstGA0LDRidCw0LXQvCDQv9Cw0YDRgwogICAgICAgICAgICDQv9GA0LXQtNC70L7QttC10L3QuNC1KSkpCgoKKGRlZnVuINGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtSAo0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCf0LXRgNC10LLQvtC00LjRgiDQv9GA0LXQtNC70L7QttC10L3QuNC1INC90LAgJ9GP0LfRi9C6INGB0L/Qu9C10YLQvdC40LrQsCcuIgogIChtYXBjYXIgIycobGFtYmRhICjRgdC70L7QstC+KSAo0YHQv9C70LXRgtC90LjQui3RgdC70L7QstC+INGB0LvQvtCy0L4g0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkpCgoKOzsgRXhhbXBsZXM6CihsZXQgKCjQv9GA0LXQtNC70L7QttC10L3QuNC1ICcoItGB0LvQvtCy0L4iICLQv9C10YDQtdCy0L7QtNC40YLRgdGPIiAiIiAxMjMgOtGB0LjQvNCy0L7QuyBuaWwgItC90LAiICLRj9C30YvQuiIgItGB0L/Qu9C10YLQvdC40LrQsCIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLRgdC/0LvQtdGC0L3RjyIpKQogIChmb3JtYXQgdCAi0JjRgdGF0L7QtNC90L7QtSDQv9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUtc2FmZSDQv9GA0LXQtNC70L7QttC10L3QuNC1INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQoKKGxldCAoKNC/0YDQtdC00LvQvtC20LXQvdC40LUgJygi0LzQs9C70LAiICLQv9C10YDQtdCy0L7QtNC40YLRgdGPIiAi0L3QsCIgItGP0LfRi9C6IiAi0YHQv9C70LXRgtC90LjQutCwIikpCiAgICAgICjQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4gItGB0L/Qu9C10YLQvdGPIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICLQmtC70Y7Rh9C10LLQvtC1INGB0LvQvtCy0L46IH5BfiUiINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikKICAoZm9ybWF0IHQgItCf0YDQtdC00LvQvtC20LXQvdC40LUg0L3QsCDRj9C30YvQutC1INGB0L/Qu9C10YLQvdC40LrQsDogfkF+JSIgKNGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQv9GA0LXQtNC70L7QttC10L3QuNC1INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQoKKGxldCAoKNC/0YDQtdC00LvQvtC20LXQvdC40LUgJygi0L3QsNC/0LjRgdCw0YLRjCIgItC/0YDQvtCz0YDQsNC80LzRgyIgItC+0LHRgNCw0LHQvtGC0LrQuCIgItGC0LXQutGB0YLQsCIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLRgdC/0LvQtdGC0L3RjyIpKQogIChmb3JtYXQgdCAi0JjRgdGF0L7QtNC90L7QtSDQv9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKCihsZXQgKCjQv9GA0LXQtNC70L7QttC10L3QuNC1ICcoItC+0YLQs9C+0LLQvtGA0LjQu9CwIiAi0YDQvtGJ0LAiICLQt9C+0LvQvtGC0LDRjyIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLQutGD0LzQuNGAIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICLQmtC70Y7Rh9C10LLQvtC1INGB0LvQvtCy0L46IH5BfiUiINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikKICAoZm9ybWF0IHQgItCf0YDQtdC00LvQvtC20LXQvdC40LUg0L3QsCDRj9C30YvQutC1INGB0L/Qu9C10YLQvdC40LrQsDogfkF+JSIgKNGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQv9GA0LXQtNC70L7QttC10L3QuNC1INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQ==