Sample programs

Area of a Circle

(define pi 314)
(define r 10)
(define sqr (lambda (r) (* r r)))
(define area (lambda (r) (* pi (sqr r))))
(area r)

Fibonacci numbers using tail recursion

(define fib
  (lambda (n a b) 
     (if (= n 0) a 
        (if (= n 1) b 
           (fib (- n 1) b (+ a b))))))
                  
(fib 10 0 1)

Factorial using tail recursion

(define fact 
  (lambda (n a) 
    (if (= n 1) a 
      (fact (- n 1) (* n a)))))
                        
(fact 10 1)