From ce679bff109588dbceada4d880420aa68ee7bada Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 15 Jul 2020 11:27:14 -0500 Subject: simplified scramble --- README.md | 6 ++---- examples.lisp | 7 +++---- 2 files changed, 5 insertions(+), 8 deletions(-) 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 diff --git a/examples.lisp b/examples.lisp index 33ae013..0a40a0c 100644 --- a/examples.lisp +++ b/examples.lisp @@ -131,10 +131,9 @@ vector VEC, one at a time." (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 chunk (n str) (assert (zerop (mod (length str) n))) -- cgit v1.2.3