12 lines
253 B
Text
12 lines
253 B
Text
(import std.Range)
|
|
|
|
(let r (range:range 0 100))
|
|
(range:forEach r
|
|
(fun (e)
|
|
(if (= 0 (mod e 15))
|
|
(print "FizzBuzz")
|
|
(if (= 0 (mod e 3))
|
|
(print "Fizz")
|
|
(if (= 0 (mod e 5))
|
|
(print "Buzz")
|
|
(print e))))))
|