ニコニコ大百科

;;ちょっと括弧わるいけれど...

(define (mk-list min max)
(if (> min max)
(list)
(cons min (mk-list (+ min 1) max))))

(map
(lambda (num) (cond [(= (mod num 15) 0) 'fizzbuzz]
[(= (mod num 3) 0) 'fizz]
[(= (mod num 5) 0) 'buzz]
[else num]))
(mk-list 1 100))