Gauche2日目

昨日の件で，HelloWorldを書いたんですが，どうもlambdaとかいらないらしい．

そこで，書き直してみた．

#!/usr/bin/env gosh
(define (HelloOnce)
(print "Hello World!")
)
(define (HelloNTimes 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)
)

ちょっとすっきり．でも何かさみしい．