Data update

Task/Factorial/Scheme/factorial-4.scm

@@ -20,4 +20,5 @@
 (define (factorial n) (fold * 1 (range 1 n)))
 
 (factorial 8)
+
 ;40320

Task/Factorial/Scheme/factorial-5.scm

@@ -0,0 +1,9 @@
+(define (range n)
+  (let ((lst '()))
+    (do ((i 1 (+ i 1)))
+        ((= i (+ n 1)))
+      (set! lst (cons i lst)))
+    (reverse lst)))
+
+(define (fact n)
+  (apply * (range n)))