Initial data commit

Task/Factorial/Racket/factorial-1.rkt

@@ -0,0 +1,4 @@
+(define (factorial n)
+  (if (= 0 n)
+      1
+      (* n (factorial (- n 1)))))

Task/Factorial/Racket/factorial-2.rkt

@@ -0,0 +1,6 @@
+(define (factorial n)
+  (define (fact n acc)
+    (if (= 0 n)
+        acc
+        (fact (- n 1) (* n acc))))
+  (fact n 1))

Task/Factorial/Racket/factorial-3.rkt

@@ -0,0 +1,2 @@
+(define (factorial n)
+  (for/fold ([pro 1]) ([i (in-range 1 (+ n 1))]) (* pro i)))

Task/Factorial/Racket/factorial-4.rkt

@@ -0,0 +1,2 @@
+(define (factorial n)
+  (for/product ([i (in-range 1 (+ n 1))]) i))