diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-07-15 11:27:14 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-07-15 11:27:14 -0500 |
| commit | ce679bff109588dbceada4d880420aa68ee7bada (patch) | |
| tree | 83626a803bd8bce32378b530d1004ab394ef4777 /README.md | |
| parent | 2622a909e9277ef1b3eaa193bd53ac5cab152a73 (diff) | |
simplified scramble
Diffstat (limited to 'README.md')
| -rw-r--r-- | README.md | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -96,10 +96,8 @@ example apears at the end of the document, following the tutorial. > (defun scramble (n str) (assert (< n (length str))) (let ((str (pad str (* n (ceiling (/ (length str) n)))))) - (concatenate 'string - (apply #'nconc - (mapcar #'collect - (disperse! n (seq str))))))) + (apply #'concatenate 'string + (mapcar #'collect (disperse! n (seq str)))))) > (defun descramble (n str) (concatenate 'string |