15 lines
380 B
Standard ML
15 lines
380 B
Standard ML
local
|
|
fun fbstr i =
|
|
case (i mod 3 = 0, i mod 5 = 0) of
|
|
(true , true ) => "FizzBuzz"
|
|
| (true , false) => "Fizz"
|
|
| (false, true ) => "Buzz"
|
|
| (false, false) => Int.toString i
|
|
|
|
fun fizzbuzz' (n, j) =
|
|
if n = j then () else (print (fbstr j ^ "\n"); fizzbuzz' (n, j+1))
|
|
in
|
|
fun fizzbuzz n = fizzbuzz' (n, 1)
|
|
val _ = fizzbuzz 100
|
|
end
|