The necessary Scheme stuff to evaluate the expression. | Lecture 5 - slide 15 : 26 Program 1 |
(define (fak n) (if (= n 0) 1 (* n (fak (- n 1))))) (define (fib n) (cond ((= n 0) 0) ((= n 1) 1) (else (+ (fib (- n 1)) (fib (- n 2)))))) ((lambda(x y) (+ (* x x) (* y y))) (fak 5) (fib 10))