繰り返し

末尾再帰で繰り返し。

(let loop ((i 10) ) (if (> i 0) (begin (display i)(newline)(loop (- i 1) ) ) 'eol) )

(define (f) (define (loop i) (if (> i 0) (begin (display　i)(newline)(loop (- i 1) ) ) 'eol) ) (loop 10) )

…Lispのコードって日記に貼り付けにくいなぁ。