From 9cca0af9c8c679cc519e154df074f3f6f4a5204f Mon Sep 17 00:00:00 2001
From: Stepfen Shawn <m18824909883@163.com>
Date: Wed, 5 May 2021 16:21:24 +0800
Subject: [PATCH] Create Factorial.R

---
 maths/Factorial.R | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 maths/Factorial.R

diff --git a/maths/Factorial.R b/maths/Factorial.R
new file mode 100644
index 0000000..bf965cb
--- /dev/null
+++ 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)