FizzBuzz.hs

module FizzBuzz where
import Data.Foldable (fold)
 
whenDivisible :: Integral a => a -> b -> a -> Maybe b
whenDivisible d x n = if n `rem` d == 0 then Just x else Nothing
 
fizzbuzz :: (Show a, Integral a) => a -> String
fizzbuzz n = maybe (show n) id tagStr
  where tagStr = fold [fizz n, buzz n]
        fizz = whenDivisible 3 "Fizz"
        buzz = whenDivisible 5 "Buzz"
 
main = mapM_ (putStrLn . fizzbuzz) [1..50]