From 9b939e65cf007e859dabe5de6b31d255d647e0ce Mon Sep 17 00:00:00 2001
From: Steve Lee <me@xiangyangli.com>
Date: Sat, 2 Dec 2017 06:10:20 +0800
Subject: category

---
 Computer_Science/SICP/ex1-1.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 Computer_Science/SICP/ex1-1.scm

(limited to 'Computer_Science/SICP/ex1-1.scm')

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)
-- 
cgit v1.2.3