fizzbuzz.hs

fizzbuzz.hs

module Main where

import           Data.Foldable (asum)
import           Data.Maybe    (fromMaybe)

toMaybe :: Bool -> a -> Maybe a
toMaybe False _ = Nothing
toMaybe _ value = Just value

fizzbuzz :: Integer -> String
fizzbuzz = fromMaybe <$> show <*> asum . sequence rules
  where
    fb m output n = toMaybe (n `mod` m == 0) output
    rules = [fb 15 "FizzBuzz", fb 3 "Fizz", fb 5 "Buzz"]

main :: IO ()
main = print $ map fizzbuzz [1..100]