Create Factorial.R

sounkou-bioinfo · May 5, 2021 · 9cca0af · 9cca0af
1 parent fb8f46d
commit 9cca0af
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/maths/Factorial.R b/maths/Factorial.R
@@ -0,0 +1,15 @@
+Fact <- function(n){
+  if(n < 0) print("warning: your input is wrong!")
+  else if(n == 0 | n == 1) print(1)
+  else {
+    s <- numeric()
+    s[1] = 1
+    for(i in 2 : n){
+      s[i] = i * s[i - 1]
+    }
+    return(s[n])
+  }
+}
+
+Fact(5)
+Fact(6)