Initial data commit

Task/Factorial/Elm/factorial-1.elm

@@ -0,0 +1,3 @@
+factorial : Int -> Int
+factorial n =
+  if n < 1 then 1 else n*factorial(n-1)

Task/Factorial/Elm/factorial-2.elm

@@ -0,0 +1,7 @@
+factorialAux : Int -> Int -> Int
+factorialAux a acc =
+    if a < 2 then acc else factorialAux (a - 1) (a * acc)
+
+factorial : Int -> Int
+factorial a =
+    factorialAux a 1

Task/Factorial/Elm/factorial-3.elm

@@ -0,0 +1,5 @@
+import List exposing (product, range)
+
+factorial : Int -> Int
+factorial a =
+    product (range 1 a)