Я сжимаю несколько длинных строк с использованием ZLIB, который использует LZ77-представления повторяющихся подстрок перед кодированием этих представлений с использованием дерева Хаффмана. Мне интерес
Этот код работает отлично: (let* ((str (read-line)))
(write (char str 1)))
Но если добавить некоторые, он ломает: (let* ((str (read-line))
(str-len (length str))))
(write (char str