Re: Beginner code - splitting lines on whitespace

(defun white-space-p (c)
  (or (char= c #\Space) (char= c #\Tab)))
>
(defun split-on-space (string)
  (loop
   for b = (position-if-not #'white-space-p string)
   then (position-if-not #'white-space-p string :start e)
   for e = (when b (position-if #'white-space-p string :start b))
   while b
   collect (subseq string b e)
   while e))

Gauche Scheme

(use srfi-13) ;; string ops.

(define (white-space? c) (member c '(#\space #\tab)))

(define (split-on-space str :optional (start 0))
  (let1 b (and start (string-skip str white-space? start))
    (if b
      (let1 e (string-index str white-space? b)
        (cons (string-copy str b e) (split-on-space str e)))
      '())))

(split-on-space "   foo   bar  ")
  ===>
("foo" "bar")

(split-on-space  "foo")
  ===>
("foo")

(split-on-space  "")
  ===>
()


Another way:


(define-method object-apply ((s <string>) (i <integer>) j)
  (string-copy s i j))

(define (split-on-space str :optional (start 0))
  (let1 b (and start (string-skip str white-space? start))
    (if b
      (let1 e (string-index str white-space? b)
        (cons (str b e) (split-on-space str e)))
      '())))


The easy way.

(use srfi-13)

(define (split-on-space str)
  (string-tokenize str))