Just another convoluted way of computing FizzBuzz

FizzBuzz.hs

-- convoluted FizzBuzz

import Data.Monoid
import Data.Function (on)

every :: Int -> a -> [Maybe a]
every n x = cycle (replicate (n-1) Nothing ++ [Just x])


fizzbuzz :: [String]
fizzbuzz = 
 map (\(First (Just x)) -> x) $
 zipWith ((<>) `on` First)
   (foldr1 (zipWith (<>)) [threes, fives])
   nats

 where
  nats = map (Just . show) [1..]

  threes = every 3 "Fizz"
  fives = every 5 "Buzz"


main :: IO ()
main = mapM_ putStrLn fizzbuzz