FizzBuzz.elm

import Html exposing (text)
import String


fizzbuzz : Int -> List String
fizzbuzz to =
  let
    current =
      case (to % 3, to % 5) of
      (0, 0) -> "Fizz Buzz"
      (0, _) -> "Fizz"
      (_, 0) -> "Buzz"
      (_, _) -> toString to
  in
    case to of
    0 -> []
    _ -> fizzbuzz (to - 1) ++ [current]

main =
  text (String.join ", " (fizzbuzz 20))