8 lines
297 B
Text
8 lines
297 B
Text
(define fizz-buzz
|
|
(lambda (x)
|
|
(define ret "")
|
|
(if (zero? (% x 3))(set! ret (append ret "fizz")))
|
|
(if (zero? (% x 5))(set! ret (append ret "buzz")))
|
|
(if (equal? ret "") (set! ret (append ret x)))
|
|
ret))
|
|
(apply display-lines (list-join (map fizz-buzz (range 100 1))))
|