1 files changed, 16 insertions, 0 deletions
diff --git a/Computer_Science/SICP/ex1-1.scm b/Computer_Science/SICP/ex1-1.scm
new file mode 100644
index 0000000..7f0b307
--- /dev/null
+++ b/Computer_Science/SICP/ex1-1.scm
@@ -0,0 +1,16 @@
+(define (factorial n)
+  (if (= n 1)
+    n
+    (* n (factorial (- n 1)))
+    )
+  )
+
+(factorial 11000)
+
+(define (fib n)
+  (cond ((= n 0) 0)
+        ((= n 1) 1)
+        (else (+ (fib (- n 1))
+                 (fib (- n 2))))))
+
+(fib 6)