Initial data commit

Task/Factorial/ATS/factorial-1.ats

@@ -0,0 +1,10 @@
+fun
+fact
+(
+  n: int
+) : int = res where
+{
+  var n: int = n
+  var res: int = 1
+  val () = while (n > 0) (res := res * n; n := n - 1)
+}

Task/Factorial/ATS/factorial-2.ats

@@ -0,0 +1,5 @@
+fun
+factorial
+  (n:int): int =
+  if n > 0 then n * factorial(n-1) else 1
+// end of [factorial]

Task/Factorial/ATS/factorial-3.ats

@@ -0,0 +1,8 @@
+fun
+factorial
+  (n:int): int = let
+  fun loop(n: int, res: int): int =
+    if n > 0 then loop(n-1, n*res) else res
+in
+  loop(n, 1)
+end // end of [factorial]