|
import Data.Bool (bool)
|
|
|
|
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
|