15 lines
380 B
OCaml
15 lines
380 B
OCaml
|
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
|