aboutsummaryrefslogtreecommitdiff
path: root/SICP/ex1-1.scm
diff options
context:
space:
mode:
Diffstat (limited to 'SICP/ex1-1.scm')
-rw-r--r--SICP/ex1-1.scm16
1 files changed, 16 insertions, 0 deletions
diff --git a/SICP/ex1-1.scm b/SICP/ex1-1.scm
new file mode 100644
index 0000000..7f0b307
--- /dev/null
+++ b/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)