はじめてのGauche

今日，プログラミングGaucheという本を買った．話題のScheme処理系，Gaucheに関するオライリーの本．

で，とりあえずパラパラと何ページか読んでから，Hello World!をやってみた．ただのHelloWorldだと面白くないので，再帰呼び出しとか使ってみた．
コードをさらす．

#!/usr/bin/env gosh
(define HelloOnce
(lambda () (print "Hello World!"))
)
(define HelloNTimes
(lambda (x)
(if (> x 0)
(cons
(HelloNTimes (- x 1))
(print x ":Hello World!")
)
)
)
)
(define (main args)
(print "***Print once***")
(HelloOnce)
(print "***Print 10 times***")
(HelloNTimes 10)
)

次はFizzBuzz？