Data commit

Task/FizzBuzz/Elm/fizzbuzz-1.elm

@@ -0,0 +1,15 @@
+import Html exposing (text)
+import List exposing (map)
+
+main =
+  [1..100] |> map getWordForNum |> text
+
+getWordForNum num =
+  if num % 15 == 0 then
+    "FizzBuzz"
+  else if num % 3 == 0 then
+    "Fizz"
+  else if num % 5 == 0 then
+    "Buzz"
+  else
+    String.fromInt num

Task/FizzBuzz/Elm/fizzbuzz-2.elm

@@ -0,0 +1,18 @@
+import Html exposing (text)
+import List exposing (map)
+import String exposing (join, fromInt)
+
+main : Html.Html
+main =
+  [1..100] |> map fizzbuzz |> join " " |> text
+
+fizzbuzz : Int -> String
+fizzbuzz num =
+  let
+    fizz = if num % 3 == 0 then "Fizz" else ""
+    buzz = if num % 5 == 0 then "Buzz" else ""
+  in
+    if fizz == buzz then
+      fromInt num
+    else
+      fizz ++ buzz