|
local
|
|
fun fizzbuzz'
|
|
(x mod 15 = 0) = "FizzBuzz"
|
|
| (x mod 5 = 0) = "Buzz"
|
|
| (x mod 3 = 0) = "Fizz"
|
|
| x = ntos x
|
|
in
|
|
fun fizzbuzz
|
|
([], s) = rev s
|
|
| (x :: xs, s) = fizzbuzz (xs, fizzbuzz' x :: s)
|
|
| (x :: xs) = fizzbuzz (x :: xs, [])
|
|
end
|
|
;
|
|
|
|
println ` fizzbuzz ` iota 100;
|