4 ms·
I do it like this. fizzbuzz n = case (n^4 `mod` 15) of 1 -> show n 6 -> "fizz" 10 -> "buzz" 0 -> "fizzbuzz" main :: IO () main = print $
by makerofthings 5y ago
I do it like this.
fizzbuzz n = case (n^4 `mod` 15) of
1 -> show n
6 -> "fizz"
10 -> "buzz"
0 -> "fizzbuzz"
main :: IO ()
main = print $ map fizzbuzz [1..30]
- eurasiantiger 5y agoThat is Euler’s FizzBuzz: http://philcrissman.net/posts/eulers-fizzbuzz/ http://philcrissman.net/posts/eulers-fizzbuzz/ I think it is an elegant solution.