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)
)

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

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です