joker1007 · August 7, 2012 06:25
diff --git a/fizzbuzz.hs b/fizzbuzz.hs
 fizzbuzz :: [String]
 fizzbuzz = [fb x | x <- [1..]]
  where
    fb x
      | x `mod` 15 == 0 = "fizzbuzz"
      | x `mod` 5 == 0 = "buzz"
      | x `mod` 3 == 0 = "fizz"
      | otherwise = show x

 main :: IO ()
 main = mapM_ putStrLn $ take 100 fizzbuzz
	fizzbuzz :: [String]
	fizzbuzz = [fb x \| x <- [1..]]
	where
	fb x
	\| x `mod` 15 == 0 = "fizzbuzz"
	\| x `mod` 5 == 0 = "buzz"
	\| x `mod` 3 == 0 = "fizz"
	\| otherwise = show x

	main :: IO ()
	main = mapM_ putStrLn $ take 100 fizzbuzz