Gauche2日目

プログラミング Gauche

昨日の件で，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)
  )

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