scheme gauche string

readmt.scm

;文字列を最初に現れたデリミタ文字で2分割したリストを返す
;両端の空白は切り捨てられる。
;in
;str:文字列
;deli:文字(not文字列)
;ret:list
(use srfi-13)
(define (string-split2 str deli)
  (let ((pos (string-index str deli)))
    (list (string-trim-both (substring str 0 pos))
	    (string-trim-both (substring str (+ pos 1) (string-length str))))))