書き初め@2014

fizzbuzz.scm

#!/usr/local/bin/gosh
(define (main args)
  (print (map fizzbuzz (iota 2014 1)))
  0 )

(define (dividable x y)
  (zero? (mod x y)))

(define (fizzbuzz x)
  (cond
    ((dividable x 15) "fizzbuzz")
    ((dividable x 5) "buzz")
    ((dividable x 3) "fizz")
    (else x)))