FizzBuzz

TraversableでもFizzBuzzに再び挑戦。Haskellに見えない。

import Data.Traversable

main = for [1..] (\i ->
         if (i `mod` 15 == 0) then 
           putStrLn "FizzBuzz"
         else if(i `mod` 3 == 0) then
           putStrLn "Fizz"
         else if(i `mod` 5 == 0) then
           putStrLn "Buzz"
         else
           putStrLn $ show i
       )