3 ms·
There are a surprising number of ways to generate the fizzbuzz sequence. I always liked this one: fizzbuzz n = case (n^4 `mod` 15) of 1 -> show n 6
by makerofthings 11mo ago
There are a surprising number of ways to generate the fizzbuzz sequence. I always liked this one:
fizzbuzz n = case (n^4 `mod` 15) of
1 -> show n
6 -> "fizz"
10 -> "buzz"
0 -> "fizzbuzz"
fb :: IO ()
fb = print $ map fizzbuzz [1..30]