GaucheでFizzBuzz

だいたい分かってきた．

で，FizzBuzz．3の倍数のときにFizz，5の倍数のときにBuzz，3と5の倍数のときにはFizzBuzzを表示するプログラム．

#!/usr/bin/env gosh
(define fizzbuzz
( lambda (x)
(if (> x 1) (fizzbuzz (- x 1)))
(cond
((= ( modulo x (* 3 5)) 0) (print x ":FizzBuzz"))
((= ( modulo x 3 ) 0 ) (print x ":Fizz"))
((= ( modulo x 5 ) 0) (print x ":Buzz"))
(else (print x))
)
)
)
(define (main args)
(fizzbuzz 30)
)

適当ですが．