scheme-split.scm

(use srfi-14)

(define (string-split string char-set-delimiter)
	(let loop((str (string->list string)) (unit '()) (result '()))
		(if (null? str)
			(reverse (map (lambda (ls) (list->string (reverse ls))) (cons unit result)))
			(if (char-set-contains? char-set-delimiter (car str))
				(loop (cdr str) '() (cons unit result))
				(loop (cdr str) (cons (car str) unit) result)))))

(write (string-split "1234/abc\nあいう" (string->char-set "/\n")))