FizzBuzz.hs

module FizzBuzz where

data FizzResult
  = Val Int
  | Fizz
  | Buzz
  | FizzBuzz
  deriving (Show)

divisibleBy :: Int -> Int -> Bool
divisibleBy divisor x = x `mod` divisor == 0

fizzbuzz :: Int -> FizzResult
fizzbuzz x =
  case (divisibleBy 3 x, divisibleBy 5 x) of
    (True, True) -> FizzBuzz
    (True, False) -> Fizz
    (False, True) -> Buzz
    (False, False) -> Val x

-- Run fizzbuzz over every int from 1 to 100 and print the result.
main :: IO ()
main = traverse (print . fizzbuzz) [1 .. 100]