はじめてのGauche

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

プログラミング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？