(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 конец))  ; Если первый символ - согласная
     (дели-слово-рекурсия (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 сплетник-предложение (предложение ключевое-слово)
  "Переводит предложение на 'язык сплетника'."
  (mapcar #'(lambda (слово) (сплетник-слово слово ключевое-слово)) предложение))
 
(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 (слово)
                (сплетник-слово (safe-string слово) ключевое-слово-str))
            предложение)))
 
;; Пример использования:
(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 "Keyword: ~A~%" ключевое-слово)
  (format t "Gossip sentence: ~A~%" (сплетник-предложение предложение ключевое-слово)))
 
(let ((предложение '("отговорила" "роща" "золотая"))
      (ключевое-слово "кумир"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Keyword: ~A~%" ключевое-слово)
  (format t "Gossip sentence: ~A~%" (сплетник-предложение предложение ключевое-слово)))
 

KGRlZnVuINCz0LvQsNGB0L3QsNGPPyAoY2hhcikKICAi0J/RgNC+0LLQtdGA0Y/QtdGCLCDRj9Cy0LvRj9C10YLRgdGPINC70Lgg0YHQuNC80LLQvtC7INCz0LvQsNGB0L3QvtC5INCx0YPQutCy0L7QuS4iCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNGDICNc0L4gI1zRiyAjXNC4ICNc0Y0gI1zRjyAjXNGOICNc0ZEgI1zQtSkgOnRlc3QgIydjaGFyLWVxdWFsKSkKCihkZWZ1biDRgdC+0LPQu9Cw0YHQvdCw0Y8/IChjaGFyKQogICLQn9GA0L7QstC10YDRj9C10YIsINGP0LLQu9GP0LXRgtGB0Y8g0LvQuCDRgdC40LzQstC+0Lsg0YHQvtCz0LvQsNGB0L3QvtC5INCx0YPQutCy0L7QuS4iCiAgKGFuZCAoZ3JhcGhpYy1jaGFyLXAgY2hhcikgIDsg0J/RgNC+0LLQtdGA0Y/QtdC8LCDRh9GC0L4g0Y3RgtC+INCy0L7QvtCx0YnQtSDRgdC40LzQstC+0LssINC+0YLQu9C40YfQvdGL0Lkg0L7RgiDQv9GA0L7QsdC10LvQsCDQuCDRgi7Qvy4KICAgICAgIChub3QgKNCz0LvQsNGB0L3QsNGPPyBjaGFyKSkpKQoKCihkZWZ1biDQtNC10LvQuC3RgdC70L7QstC+ICjRgdC70L7QstC+KQogICLQn9GA0LXQvtCx0YDQsNC30YPQtdGCINGB0LvQvtCy0L4g0LIg0YHQv9C40YHQvtC6INC10LPQviDQsdGD0LrQsi4iCiAgKGNvZXJjZSAoc3RyaW5nINGB0LvQvtCy0L4pICdsaXN0KSkKCihkZWZ1biDQtNC10LvQuC3RgdC70L7QstC+LdGA0LXQutGD0YDRgdC40Y8gKNC90LDRh9Cw0LvQviDQutC+0L3QtdGGKQogICLQlNC10LvQuNGCINGB0LvQvtCy0L4g0L3QsCDQtNCy0LUg0YfQsNGB0YLQuCAo0YDQtdC60YPRgNGB0LjQstC90L4pLiIKICAoY29uZAogICAgKChudWxsINC60L7QvdC10YYpIChsaXN0INC90LDRh9Cw0LvQviBuaWwpKSA7INCh0L/QuNGB0L7QuiDQsdGD0LrQsiDQt9Cw0LrQvtC90YfQuNC70YHRjwogICAgKCjRgdC+0LPQu9Cw0YHQvdCw0Y8/IChmaXJzdCDQutC+0L3QtdGGKSkgIDsg0JXRgdC70Lgg0L/QtdGA0LLRi9C5INGB0LjQvNCy0L7QuyAtINGB0L7Qs9C70LDRgdC90LDRjwogICAgICjQtNC10LvQuC3RgdC70L7QstC+LdGA0LXQutGD0YDRgdC40Y8gKGFwcGVuZCDQvdCw0YfQsNC70L4gKGxpc3QgKGZpcnN0INC60L7QvdC10YYpKSkgKHJlc3Qg0LrQvtC90LXRhikpKSA7INCU0L7QsdCw0LLQu9GP0LXQvCDRgdC+0LPQu9Cw0YHQvdGD0Y4g0LIg0L3QsNGH0LDQu9C+CiAgICAodCAobGlzdCDQvdCw0YfQsNC70L4g0LrQvtC90LXRhikpKSkgOyDQmNC90LDRh9C1ICjQs9C70LDRgdC90LDRjyDQuNC70Lgg0LrQvtC90LXRhiDRgdC/0LjRgdC60LApIC0g0LLQvtC30LLRgNCw0YnQsNC10Lwg0L3QsNGH0LDQu9C+INC4INC60L7QvdC10YYKCihkZWZ1biDRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+ICjRgdC70L7QstC+KQogICLQntGB0L3QvtCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGA0LDQt9C00LXQu9C10L3QuNGPINGB0LvQvtCy0LAuIgogIChsZXQgKCjQsdGD0LrQstGLICjQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICjQtNC10LvQuC3RgdC70L7QstC+LdGA0LXQutGD0YDRgdC40Y8gJygpINCx0YPQutCy0YspKSkKCihkZWZ1biDQv9C10YDQstGL0Lkt0YHQu9C+0LMgKNGB0LvQvtCy0L4pCiAgItCS0L7Qt9Cy0YDQsNGJ0LDQtdGCINC/0LXRgNCy0YvQuSDRgdC70L7QsyDRgdC70L7QstCwLiIKICAobGV0ICgo0YDQtdC30YPQu9GM0YLQsNGCICjRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICh3aGVuIChmaXJzdCDRgNC10LfRg9C70YzRgtCw0YIpCiAgICAgIChjb2VyY2UgKGZpcnN0INGA0LXQt9GD0LvRjNGC0LDRgikgJ3N0cmluZykpKSkKCihkZWZ1biDQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwICjRgdC70L7QstC+KQogICAi0JLQvtC30LLRgNCw0YnQsNC10YIg0YfQsNGB0YLRjCDRgdC70L7QstCwLCDQuNC00YPRidGD0Y4g0L/QvtGB0LvQtSDQv9C10YDQstC+0LPQviDRgdC70L7Qs9CwLiIKICAobGV0ICgo0YDQtdC30YPQu9GM0YLQsNGCICjRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgIChpZiAoc2Vjb25kINGA0LXQt9GD0LvRjNGC0LDRgikKICAgICAgKGNvZXJjZSAoc2Vjb25kINGA0LXQt9GD0LvRjNGC0LDRgikgJ3N0cmluZykKICAgICAgIiIpKSkKCihkZWZ1biDRgdC/0LvQtdGC0L3QuNC6LdGB0LvQvtCy0L4gKNGB0LvQvtCy0L4g0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KQogICLQn9C10YDQtdCy0L7QtNC40YIg0L7QtNC90L4g0YHQu9C+0LLQviDQvdCwICfRj9C30YvQuiDRgdC/0LvQtdGC0L3QuNC60LAnLiIKICAobGV0ICgo0YHQu9C+0LMt0YHQu9C+0LLQsCAo0L/QtdGA0LLRi9C5LdGB0LvQvtCzINGB0LvQvtCy0L4pKQogICAgICAgICjRgdC70L7Qsy3QutC70Y7Rh9CwICjQv9C10YDQstGL0Lkt0YHQu9C+0LMg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkKICAgICAgICAo0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCAo0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCDRgdC70L7QstC+KSkKICAgICAgICAo0L7RgdGC0LDRgtC+0Lot0LrQu9GO0YfQsCAo0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKICAgIChsaXN0IChjb25jYXRlbmF0ZSAnc3RyaW5nIChpZiDRgdC70L7Qsy3QutC70Y7Rh9CwINGB0LvQvtCzLdC60LvRjtGH0LAgIiIpINC+0YHRgtCw0YLQvtC6LdGB0LvQvtCy0LApCiAgICAgICAgICAoY29uY2F0ZW5hdGUgJ3N0cmluZyAoaWYg0YHQu9C+0LMt0YHQu9C+0LLQsCDRgdC70L7Qsy3RgdC70L7QstCwICIiKSDQvtGB0YLQsNGC0L7Qui3QutC70Y7Rh9CwKSkpKQoKKGRlZnVuINGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtSAo0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCf0LXRgNC10LLQvtC00LjRgiDQv9GA0LXQtNC70L7QttC10L3QuNC1INC90LAgJ9GP0LfRi9C6INGB0L/Qu9C10YLQvdC40LrQsCcuIgogIChtYXBjYXIgIycobGFtYmRhICjRgdC70L7QstC+KSAo0YHQv9C70LXRgtC90LjQui3RgdC70L7QstC+INGB0LvQvtCy0L4g0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkpCgooZGVmdW4gc2FmZS1zdHJpbmcgKGFyZykKICAi0J/RgNC10L7QsdGA0LDQt9GD0LXRgiDRgdC40LzQstC+0Lsg0LjQu9C4INGH0LjRgdC70L4g0LIg0YHRgtGA0L7QutGDLCDQuNC70Lgg0LLQvtC30LLRgNCw0YnQsNC10YIg0YHRgtGA0L7QutGDINCx0LXQtyDQuNC30LzQtdC90LXQvdC40LkuIgogIChjb25kICgoc3RyaW5ncCBhcmcpIGFyZykKICAgICAgICAoKHN5bWJvbHAgYXJnKSAoc3ltYm9sLW5hbWUgYXJnKSkKICAgICAgICAoKG51bWJlcnAgYXJnKSAod3JpdGUtdG8tc3RyaW5nIGFyZykpCiAgICAgICAgKHQgIiIpKSkKCihkZWZ1biDRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUtc2FmZSAo0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCR0LXQt9C+0L/QsNGB0L3QsNGPINCy0LXRgNGB0LjRjyDQtNC70Y8g0YDQsNC30L3QvtGA0L7QtNC90YvRhSDRgdC/0LjRgdC60L7QsiDQuCDQvtGC0YHRg9GC0YHRgtCy0LjRjyDRgdC70L7Qsi4iCiAgKGxldCAoKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvi1zdHIgKHNhZmUtc3RyaW5nINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQogICAgKG1hcGNhciAjJyhsYW1iZGEgKNGB0LvQvtCy0L4pCiAgICAgICAgICAgICAgICAo0YHQv9C70LXRgtC90LjQui3RgdC70L7QstC+IChzYWZlLXN0cmluZyDRgdC70L7QstC+KSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4tc3RyKSkKICAgICAgICAgICAg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkpKQoKOzsg0J/RgNC40LzQtdGAINC40YHQv9C+0LvRjNC30L7QstCw0L3QuNGPOgoobGV0ICgo0L/RgNC10LTQu9C+0LbQtdC90LjQtSAnKCLRgdC70L7QstC+IiAi0L/QtdGA0LXQstC+0LTQuNGC0YHRjyIgIiIgMTIzIDrRgdC40LzQstC+0LsgbmlsICLQvdCwIiAi0Y/Qt9GL0LoiICLRgdC/0LvQtdGC0L3QuNC60LAiKSkKICAgICAgKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQviAi0YHQv9C70LXRgtC90Y8iKSkKICAoZm9ybWF0IHQgItCY0YHRhdC+0LTQvdC+0LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtTogfkF+JSIg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkKICAoZm9ybWF0IHQgItCa0LvRjtGH0LXQstC+0LUg0YHQu9C+0LLQvjogfkF+JSIg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KQogIChmb3JtYXQgdCAi0J/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwINGP0LfRi9C60LUg0YHQv9C70LXRgtC90LjQutCwOiB+QX4lIiAo0YHQv9C70LXRgtC90LjQui3Qv9GA0LXQtNC70L7QttC10L3QuNC1LXNhZmUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKCihsZXQgKCjQv9GA0LXQtNC70L7QttC10L3QuNC1ICcoItC80LPQu9CwIiAi0L/QtdGA0LXQstC+0LTQuNGC0YHRjyIgItC90LAiICLRj9C30YvQuiIgItGB0L/Qu9C10YLQvdC40LrQsCIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLRgdC/0LvQtdGC0L3RjyIpKQogIChmb3JtYXQgdCAi0JjRgdGF0L7QtNC90L7QtSDQv9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKCihsZXQgKCjQv9GA0LXQtNC70L7QttC10L3QuNC1ICcoItC90LDQtNC60YPRgdC40YLRjCDQu9C+0LzRgtC40Log0LrQvtC70LHQsNGB0YsiKSkKICAgICAgKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQviAi0YHQv9C70LXRgtC90Y8iKSkKICAoZm9ybWF0IHQgItCY0YHRhdC+0LTQvdC+0LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtTogfkF+JSIg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkKICAoZm9ybWF0IHQgItCa0LvRjtGH0LXQstC+0LUg0YHQu9C+0LLQvjogfkF+JSIg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KQogIChmb3JtYXQgdCAi0J/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwINGP0LfRi9C60LUg0YHQv9C70LXRgtC90LjQutCwOiB+QX4lIiAo0YHQv9C70LXRgtC90LjQui3Qv9GA0LXQtNC70L7QttC10L3QuNC1INC/0YDQtdC00LvQvtC20LXQvdC40LUg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkpCgoobGV0ICgo0L/RgNC10LTQu9C+0LbQtdC90LjQtSAnKCLQvdCw0L/QuNGB0LDRgtGMIiAi0L/RgNC+0LPRgNCw0LzQvNGDIiAi0L7QsdGA0LDQsdC+0YLQutC4IiAi0YLQtdC60YHRgtCwIikpCiAgICAgICjQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4gItGB0L/Qu9C10YLQvdGPIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICJLZXl3b3JkOiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICJHb3NzaXAgc2VudGVuY2U6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKCihsZXQgKCjQv9GA0LXQtNC70L7QttC10L3QuNC1ICcoItC+0YLQs9C+0LLQvtGA0LjQu9CwIiAi0YDQvtGJ0LAiICLQt9C+0LvQvtGC0LDRjyIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLQutGD0LzQuNGAIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICJLZXl3b3JkOiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICJHb3NzaXAgc2VudGVuY2U6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkK