FizzBuzz in Elm

ElmFizzBuzz.elm

import Graphics.Element exposing (show)

main = show (iterate 100)

fizzbuzz : Int -> String
fizzbuzz n =
  if | mod n 15 -> "FizzBuzz"
     | mod n 5 -> "Buzz"
     | mod n 3 -> "Fizz"
     | otherwise -> toString n

mod : Int -> Int -> Bool
mod i j =
  i % j == 0

iterate : Int -> List String
iterate max =
  List.map fizzbuzz [1 .. max]