Back to slide -- Keyboard shortcut: 'u'                      fib-fak.scm - The necessary Scheme stuff to evaluate the expression.Lecture 4 - slide 15 : 27
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))