function
to_str : int * list(int * string) => string
to_str((_, [(_, s1)])) = s1
to_str((_, [(_, s1), (_, s2)])) = String.concat(s1, s2)
to_str((x, _)) = Int.to_str(x)
entrypoint fizz_buzz(to : int) : list(string) =
let fizz_or_buzz = (x) => [ (m, s) | (m, s) <- [(3, "Fizz"), (5, "Buzz")], if(x mod m == 0) ]
[ to_str((x, fizz_or_buzz(x))) | x <- [1..to] ]
thepiwo
Follow
Pinned Loading
Something went wrong, please refresh the page to try again.
If the problem persists, check the GitHub status page or contact support.
If the problem persists, check the GitHub status page or contact support.