Computer_Science/SICP/ex1-1.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)