GaucheでFizzBuzzその２

前に作ったFizzBuzzをもうちょっとSchemeぽくしてみる．
以前は「関数型言語⇒再帰呼び出し」と思ってたので，再帰呼び出しで実装したけど，mapとか使えばさらにすっきり書ける．

というわけで．

#!/usr/bin/env gosh

(use srfi-1)

(define (fizzbuzz max)
 (map (lambda (x)
	   (cond
		[(= (modulo x 15) 0 ) "FizzBuzz"]
		[(= (modulo x 3) 0 ) "Fizz"]
		[(= (modulo x 5) 0 ) "Buzz"]
		[else x]
		)
	  )
  (iota max 1)
  )
 )

(define (main args)
 (print (fizzbuzz 30))
 )

1から始まるmax個のリストをiotaで作り，それの各要素に対してmapでlambda式を適用していっている．