FizzBuzz.hs

{-# LANGUAGE TypeApplications #-}

import Control.Applicative (ZipList(..))
import Data.Monoid (Ap(..))
import Data.Maybe (fromMaybe)
import Data.Foldable (traverse_)

every :: Int -> String -> Ap ZipList (Maybe String)
every m s = (Ap . ZipList) (cycle $ Just s : replicate (m - 1) Nothing)

fizzbuzzjazz :: [String]
fizzbuzzjazz
  =  drop 1 . getZipList . getAp
  $  fromMaybe . show @Int
 <$> (Ap . ZipList) [0..]
 <*> every 3 "fizz" <> every 5 "buzz" <> every 7 "jazz"

main :: IO ()
main = traverse_ putStrLn (take (3 * 5 * 7) fizzbuzzjazz)