Split string by separater

[snozawa]

I'd like to split a string by a separater.

3.irteusgl$ (split-function " " "1 2 3 4 5")
(list "1" "2" "3" "4" "5")

Is there any way to split string like this?

[eisoku9618]

I learned the following programs from @kindsenior .

;; (simple-reg-split " " "10 2 -4 2") -> (10 2 -4 2)                                                                                          
;; (simple-reg-split "," "10,2 -4 2") -> (10 2) ;; read-from-string is not good                                                               
(defun simple-reg-split (delimiter arg)
  (let (buf ans)
    (dolist (i (coerce arg cons))
      (if (equal i (elt delimiter 0))
          (progn
            (push (read-from-string (coerce (reverse buf) string)) ans)
            (setq buf nil))
        (push i buf)))
    (push (read-from-string (coerce (reverse buf) string)) ans)
    (reverse ans)))

[furushchev]

similar dirty way which I usually use for rapid typing

1.irteusgl$ (defun split-string (s &optional (delim #\Space))                                   
  (mapcar #'string                                                                                                  
          (read-from-string                                                                                         
           (concatenate string "(" (substitute #\Space delim s) ")"))))                                             

split-string
2.irteusgl$ nil
2.irteusgl$ split-string "1 2 3 4 5"
("1" "2" "3" "4" "5")
3.irteusgl$ split-string "1,2 3 4 5" #\,
("1" "2" "3" "4" "5")