hajimehoshi · October 9, 2011 04:48 · dekosuke · Oct 13, 2011 · hajimehoshi · Oct 13, 2011
diff --git a/fizzBuzz.hs b/fizzBuzz.hs
 main :: IO ()
 main = print $ map fizzBuzz [1..]
 
 fizzBuzz :: Integer -> String
 fizzBuzz n
  | n `rem` 15 == 0 = "FizzBuzz"
  | n `rem` 3  == 0 = "Fizz"
  | n `rem` 5  == 0 = "Buzz"
  | otherwise       = show n
	main :: IO ()
	main = print $ map fizzBuzz [1..]

	fizzBuzz :: Integer -> String
	fizzBuzz n
	\| n `rem` 15 == 0 = "FizzBuzz"
	\| n `rem` 3 == 0 = "Fizz"
	\| n `rem` 5 == 0 = "Buzz"
	\| otherwise = show n