8 lines
188 B
Text
8 lines
188 B
Text
let fizzBuzz(n) :=
|
|
let fb(0, 0) := "fizzbuzz"
|
|
let fb(0, _) := "fizz"
|
|
let fb(_, 0) := "buzz"
|
|
let fb(_, _) := n
|
|
fb(n % 3, n % 5)
|
|
|
|
for i in 1..101 do println(fizzBuzz(i))
|