lisp尾递归

#lang scheme

(define (fib n)

(define (fib-iter a b count) (if (= count 0) b (fib-iter (+ a b) a (- count 1)))) 

(fib-iter 1 0 n))

(fib 10)