Plaster
New
List
Login
text
default
anonymous
2018.01.26 22:21:50
(with-output-to-string (s) (flet ((add (start end) (loop for offset from (+ start i) to (+ end i) for octet = (aref cluster offset) when (and (/= octet 0) (/= octet 255)) do (write-char (code-char octet) s)))) (add 1 10) (add 14 25) (add 28 31)))
Raw
Annotate
Repaste
Edit
Annotations
markdown
default
hu
2018.02.07 08:36:41
** It's very good.
Raw
Repaste