PhDP · June 28, 2013 17:50
diff --git a/fizzbuzz.hs b/fizzbuzz.hs
 fizzbuzz a b x = [fb i | i <- [1..x]]
  where
    ab = a * b
    fb n
      | mod n ab == 0 = "FizzBuzz"
      | mod n a == 0  = "Fizz"
      | mod n b == 0  = "Buzz"
      | otherwise     = show n

 main = mapM_ print $ fizzbuzz 5 7 1000
	fizzbuzz a b x = [fb i \| i <- [1..x]]
	where
	ab = a * b
	fb n
	\| mod n ab == 0 = "FizzBuzz"
	\| mod n a == 0 = "Fizz"
	\| mod n b == 0 = "Buzz"
	\| otherwise = show n

	main = mapM_ print $ fizzbuzz 5 7 1000