猫型エンジニアのブログ

プログラム/ネットワーク系の技術関連をまとめたページです 

再帰を用いたループ文

(define (loop n)
  (cond ((= n 0)(display 'end))
      ((display n)(newline)(loop (- n 1)))))
> (loop 10)
10
9
8
7
6
5
4
3
2
1
end
>