Initial data commit

Task/Factorial/R/factorial-1.r

@@ -0,0 +1,4 @@
+fact <- function(n) {
+  if (n <= 1) 1
+  else n * Recall(n - 1)
+}

Task/Factorial/R/factorial-2.r

@@ -0,0 +1,7 @@
+factIter <- function(n) {
+  f = 1
+  if (n > 1) {
+    for (i in 2:n) f <- f * i
+  }
+  f
+}

Task/Factorial/R/factorial-3.r

@@ -0,0 +1 @@
+print(factorial(50)) # 3.041409e+64