#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) [更多>>]
Copyright © 2012-2014 我的代码板 Inc. 保留所有权利。
页面耗时0.0316秒, 内存占用1.81 MB, 访问数据库8次
闽ICP备15009223号-1
评论: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) [更多>>]