fizzbuzz.elm

import Graphics.Element exposing (Element, leftAligned, flow, down)
import List exposing (map, intersperse)
import Text exposing (fromString)

fizzBuzz : Int -> String
fizzBuzz n =
  case (n % 3, n % 5) of
    (0, 0) -> "FizzBuzz"
    (0, _) -> "Fizz"
    (_, 0) -> "Buzz"
    _ -> toString n

main : Element
main =
  map fizzBuzz [1..100]
  |> map (fromString >> leftAligned)
  |> flow down