commit 25582ad800216c04f8f575ccb0e0a099a7897535 Solene Rapenne <solene@perso.pw> 2017-11-28 07:21:33 +0100 replace split function
generator.lisp | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-)
diff --git a/generator.lisp b/generator.lisp index 72d3e99..268d247 100644 --- a/generator.lisp +++ b/generator.lisp @@ -15,17 +15,20 @@ while pos))) ;; common-lisp don't have a split string function natively -;; thanks https://gist.github.com/siguremon/1174988 -(defun split-str-1 (string &optional (separator " ") (r nil)) - (let ((n (position separator string - :from-end t - :test #'(lambda (x y) - (find y x :test #'string=))))) - (if n - (split-str-1 (subseq string 0 n) separator (cons (subseq string (1+ n)) r)) - (cons string r)))) -(defun split-str (string &optional (separator " ")) - (split-str-1 string separator)) +(defun split-str(text &optional (separator #\Space)) + "this function split a string with separator and return a list" + (let ((text (concatenate 'string text (string separator)))) + (loop for char across text + counting char into count + when (char= char separator) + collect + ;; we look at the position of the left separator from right to left + (let ((left-separator-position (position separator text :from-end t :end (- count 1)))) + (subseq text + ;; if we can't find a separator at the left of the current, then it's the start of + ;; the string + (if left-separator-position (+ 1 left-separator-position) 0) + (- count 1)))))) ;; we have to remove the quotes ;; when using collect in a loop @@ -225,4 +228,4 @@ (create-gopher-hole))) (generate-site) - +(quit)