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

適当ですが.

コメントを残す

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