Euler-11の為に。。。

str-parse.scm

(define (str-parse str)
  (let loop ((ls (string->list str))
	     (tmp-acc '())
	     (acc '()))
    (cond
     ((null? str) (reverse acc))
     (let ((c (car ls))
	   (c2i (lambda (c)
		  (- (char->integer c) 48))))
       ((or (char-whitespace? c) (null? (cdr ls)))
	(loop (cdr ls)
	      tmp-acc
	      (cons (
	      
       (else
	(loop (cdr ls)
	      tmp-acc
	      (cons (c2i c) acc)))))))