2019-09-12 10:33:56 -07:00
|
|
|
import Data.Bool (bool)
|
2013-10-27 22:24:23 +00:00
|
|
|
|
2019-09-12 10:33:56 -07:00
|
|
|
fizzBuzz :: [String]
|
|
|
|
|
fizzBuzz =
|
|
|
|
|
let fb n k = cycle (replicate (pred n) [] ++ [k])
|
|
|
|
|
in zipWith
|
|
|
|
|
(flip . bool <*> null)
|
|
|
|
|
(zipWith (++) (fb 3 "fizz") (fb 5 "buzz"))
|
|
|
|
|
(show <$> [1 ..])
|
|
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = mapM_ putStrLn $ take 100 fizzBuzz
|
