Ideone.com

fork download

copy

(defun первый-слог (слово)
  "Возвращает первый слог слова (упрощенно, до первой гласной)."
  (loop for char across слово
        for i from 0
        when (member char '(#\а #\у #\о #\ы #\и #\э #\я #\ю #\ё #\е))
        do (return (subseq слово 0 (1+ i)))))
 
(defun остаток-слова (слово)
  "Возвращает часть слова, идущую после первого слога."
  (let ((первый (первый-слог слово)))
    (if первый
        (subseq слово (length первый))
        "")))
 
(defun сплетник-слово (слово ключевое-слово)
  "Переводит одно слово на 'язык сплетника'."
  (let ((слог-слова (первый-слог слово))
        (слог-ключа (первый-слог ключевое-слово))
        (остаток-слова (остаток-слова слово))
        (остаток-ключа (остаток-слова ключевое-слово)))
    (list (concatenate 'string слог-ключа остаток-слова)
          (concatenate 'string слог-слова остаток-ключа))))
 
(defun сплетник-предложение (предложение ключевое-слово)
  "Переводит предложение на 'язык сплетника'."
  (mapcar #'(lambda (слово) (сплетник-слово слово ключевое-слово)) предложение))
 
;; Пример использования:
(let ((предложение '("слово" "переводится" "на" "язык" "сплетника"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))

KGRlZnVuINC/0LXRgNCy0YvQuS3RgdC70L7QsyAo0YHQu9C+0LLQvikKICAi0JLQvtC30LLRgNCw0YnQsNC10YIg0L/QtdGA0LLRi9C5INGB0LvQvtCzINGB0LvQvtCy0LAgKNGD0L/RgNC+0YnQtdC90L3Qviwg0LTQviDQv9C10YDQstC+0Lkg0LPQu9Cw0YHQvdC+0LkpLiIKICAobG9vcCBmb3IgY2hhciBhY3Jvc3Mg0YHQu9C+0LLQvgogICAgICAgIGZvciBpIGZyb20gMAogICAgICAgIHdoZW4gKG1lbWJlciBjaGFyICcoI1zQsCAjXNGDICNc0L4gI1zRiyAjXNC4ICNc0Y0gI1zRjyAjXNGOICNc0ZEgI1zQtSkpCiAgICAgICAgZG8gKHJldHVybiAoc3Vic2VxINGB0LvQvtCy0L4gMCAoMSsgaSkpKSkpCgooZGVmdW4g0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCAo0YHQu9C+0LLQvikKICAi0JLQvtC30LLRgNCw0YnQsNC10YIg0YfQsNGB0YLRjCDRgdC70L7QstCwLCDQuNC00YPRidGD0Y4g0L/QvtGB0LvQtSDQv9C10YDQstC+0LPQviDRgdC70L7Qs9CwLiIKICAobGV0ICgo0L/QtdGA0LLRi9C5ICjQv9C10YDQstGL0Lkt0YHQu9C+0LMg0YHQu9C+0LLQvikpKQogICAgKGlmINC/0LXRgNCy0YvQuQogICAgICAgIChzdWJzZXEg0YHQu9C+0LLQviAobGVuZ3RoINC/0LXRgNCy0YvQuSkpCiAgICAgICAgIiIpKSkKCihkZWZ1biDRgdC/0LvQtdGC0L3QuNC6LdGB0LvQvtCy0L4gKNGB0LvQvtCy0L4g0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KQogICLQn9C10YDQtdCy0L7QtNC40YIg0L7QtNC90L4g0YHQu9C+0LLQviDQvdCwICfRj9C30YvQuiDRgdC/0LvQtdGC0L3QuNC60LAnLiIKICAobGV0ICgo0YHQu9C+0LMt0YHQu9C+0LLQsCAo0L/QtdGA0LLRi9C5LdGB0LvQvtCzINGB0LvQvtCy0L4pKQogICAgICAgICjRgdC70L7Qsy3QutC70Y7Rh9CwICjQv9C10YDQstGL0Lkt0YHQu9C+0LMg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkKICAgICAgICAo0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCAo0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCDRgdC70L7QstC+KSkKICAgICAgICAo0L7RgdGC0LDRgtC+0Lot0LrQu9GO0YfQsCAo0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKICAgIChsaXN0IChjb25jYXRlbmF0ZSAnc3RyaW5nINGB0LvQvtCzLdC60LvRjtGH0LAg0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCkKICAgICAgICAgIChjb25jYXRlbmF0ZSAnc3RyaW5nINGB0LvQvtCzLdGB0LvQvtCy0LAg0L7RgdGC0LDRgtC+0Lot0LrQu9GO0YfQsCkpKSkKCihkZWZ1biDRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUgKNC/0YDQtdC00LvQvtC20LXQvdC40LUg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KQogICLQn9C10YDQtdCy0L7QtNC40YIg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwICfRj9C30YvQuiDRgdC/0LvQtdGC0L3QuNC60LAnLiIKICAobWFwY2FyICMnKGxhbWJkYSAo0YHQu9C+0LLQvikgKNGB0L/Qu9C10YLQvdC40Lot0YHQu9C+0LLQviDRgdC70L7QstC+INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpINC/0YDQtdC00LvQvtC20LXQvdC40LUpKQoKOzsg0J/RgNC40LzQtdGAINC40YHQv9C+0LvRjNC30L7QstCw0L3QuNGPOgoobGV0ICgo0L/RgNC10LTQu9C+0LbQtdC90LjQtSAnKCLRgdC70L7QstC+IiAi0L/QtdGA0LXQstC+0LTQuNGC0YHRjyIgItC90LAiICLRj9C30YvQuiIgItGB0L/Qu9C10YLQvdC40LrQsCIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLRgdC/0LvQtdGC0L3RjyIpKQogIChmb3JtYXQgdCAi0JjRgdGF0L7QtNC90L7QtSDQv9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSk=

Success #stdin #stdout #stderr 0.02s 9708KB

stdin

copy

Standard input is empty

stdout

copy

Исходное предложение: (слово переводится на язык сплетника)
Ключевое слово: сплетня
Предложение на языке сплетника: 
((сплево слотня) (сплереводится петня) (спле натня) (сплезык ятня)
 (сплетника сплетня))

stderr

copy

Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x14d7f3c00000 - 0x14d7f3ee4fff
  0x14d7f4000000 - 0x14d7f4002fff
  0x14d7f4003000 - 0x14d7f4201fff
  0x14d7f4202000 - 0x14d7f4202fff
  0x14d7f4203000 - 0x14d7f4203fff
  0x14d7f4215000 - 0x14d7f4239fff
  0x14d7f423a000 - 0x14d7f43acfff
  0x14d7f43ad000 - 0x14d7f43f5fff
  0x14d7f43f6000 - 0x14d7f43f8fff
  0x14d7f43f9000 - 0x14d7f43fbfff
  0x14d7f43fc000 - 0x14d7f43fffff
  0x14d7f4400000 - 0x14d7f4403fff
  0x14d7f4404000 - 0x14d7f4603fff
  0x14d7f4604000 - 0x14d7f4604fff
  0x14d7f4605000 - 0x14d7f4605fff
  0x14d7f4622000 - 0x14d7f4623fff
  0x14d7f4624000 - 0x14d7f4633fff
  0x14d7f4634000 - 0x14d7f4667fff
  0x14d7f4668000 - 0x14d7f479efff
  0x14d7f479f000 - 0x14d7f479ffff
  0x14d7f47a0000 - 0x14d7f47a2fff
  0x14d7f47a3000 - 0x14d7f47a3fff
  0x14d7f47a4000 - 0x14d7f47a5fff
  0x14d7f47a6000 - 0x14d7f47a6fff
  0x14d7f47a7000 - 0x14d7f47a8fff
  0x14d7f47a9000 - 0x14d7f47a9fff
  0x14d7f47aa000 - 0x14d7f47aafff
  0x14d7f47ab000 - 0x14d7f47abfff
  0x14d7f47ac000 - 0x14d7f47b9fff
  0x14d7f47ba000 - 0x14d7f47c7fff
  0x14d7f47c8000 - 0x14d7f47d4fff
  0x14d7f47d5000 - 0x14d7f47d8fff
  0x14d7f47d9000 - 0x14d7f47d9fff
  0x14d7f47da000 - 0x14d7f47dafff
  0x14d7f47db000 - 0x14d7f47e0fff
  0x14d7f47e1000 - 0x14d7f47e2fff
  0x14d7f47e3000 - 0x14d7f47e3fff
  0x14d7f47e4000 - 0x14d7f47e4fff
  0x14d7f47e5000 - 0x14d7f47e5fff
  0x14d7f47e6000 - 0x14d7f4813fff
  0x14d7f4814000 - 0x14d7f4822fff
  0x14d7f4823000 - 0x14d7f48c8fff
  0x14d7f48c9000 - 0x14d7f495ffff
  0x14d7f4960000 - 0x14d7f4960fff
  0x14d7f4961000 - 0x14d7f4961fff
  0x14d7f4962000 - 0x14d7f4975fff
  0x14d7f4976000 - 0x14d7f499dfff
  0x14d7f499e000 - 0x14d7f49a7fff
  0x14d7f49a8000 - 0x14d7f49a9fff
  0x14d7f49aa000 - 0x14d7f49affff
  0x14d7f49b0000 - 0x14d7f49b2fff
  0x14d7f49b5000 - 0x14d7f49b5fff
  0x14d7f49b6000 - 0x14d7f49b6fff
  0x14d7f49b7000 - 0x14d7f49b7fff
  0x14d7f49b8000 - 0x14d7f49b8fff
  0x14d7f49b9000 - 0x14d7f49b9fff
  0x14d7f49ba000 - 0x14d7f49c0fff
  0x14d7f49c1000 - 0x14d7f49c3fff
  0x14d7f49c4000 - 0x14d7f49c4fff
  0x14d7f49c5000 - 0x14d7f49e5fff
  0x14d7f49e6000 - 0x14d7f49edfff
  0x14d7f49ee000 - 0x14d7f49eefff
  0x14d7f49ef000 - 0x14d7f49effff
  0x14d7f49f0000 - 0x14d7f49f0fff
  0x560f6d20e000 - 0x560f6d2fefff
  0x560f6d2ff000 - 0x560f6d408fff
  0x560f6d409000 - 0x560f6d468fff
  0x560f6d46a000 - 0x560f6d498fff
  0x560f6d499000 - 0x560f6d4c9fff
  0x560f6d4ca000 - 0x560f6d4cdfff
  0x560f6dbef000 - 0x560f6dc0ffff
  0x7ffdda74a000 - 0x7ffdda76afff
  0x7ffdda77c000 - 0x7ffdda77ffff
  0x7ffdda780000 - 0x7ffdda781fff

https://ideone.com/Nr2pgj

language:

Common Lisp (clisp 2.49.92)

created:

visibility:

public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language