From ce679bff109588dbceada4d880420aa68ee7bada Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Wed, 15 Jul 2020 11:27:14 -0500
Subject: simplified scramble

---
 README.md | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'README.md')

diff --git a/README.md b/README.md
index 4f455f7..af0014a 100644
--- a/README.md
+++ b/README.md
@@ -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
-- 
cgit v1.2.3