Fizzbuzz threadlet rec f n s =
if n > 100
then print_string s
else f (n+1) (s ^ "\n" ^
let c x s2 s1 =
if n mod x = 0 then s2^s1 else s1
in
(fun x -> if x = "" then string_of_int n else x)
((c 3 "fizz") (c 5 "buzz" ""))
) in f 0 "";;
let rec f n s =
if n > 100
then print_string s
else
f (n+1) (s ^ "\n" ^
let c x s2 s1 =
if n mod x = 0 then s1^s2 else s1 in
""
|> c 3 "fizz"
|> c 5 "buzz"
|> fun x -> if x = "" then string_of_int n else x
) in f 0 "";;
>ocameme
>>55615727
Anything wrong with it?