module Main exposing (..)
fizzBuzz : Int -> String
fizzBuzz n =
if n % 3 == 0 && n % 5 == 0 then
"FizzBuzz"
else if n % 3 == 0 then
"Fizz"
else if n % 5 == 0 then
"Buzz"
else
String.fromInt n
main =
let
numbers = List.range 1 100
results = List.map fizzBuzz numbers
in
List.foldl (\line acc -> acc ++ line ++ "\n") "" results |> Debug.log "FizzBuzz Output"