关闭

SICP 练习1.16

111人阅读 评论(0) 收藏 举报
分类:

用一个a存答案就可以写出迭代的过程

(define (fast-expt-iter a b n) ; a存的是答案
  (cond ((= n 0) a) ; 终止情况
        ((even? n) (fast-expt-iter a (* b b) (/ n 2))) ; n为偶数
        (else (fast-expt-iter (* a b) b (- n 1))))) ; n为奇数

(define (even? n)
  (= (remainder n 2) 0))

(define (fast-expt b n)
  (fast-expt-iter 1 b n))
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:68772次
    • 积分:3693
    • 等级:
    • 排名:第9194名
    • 原创:315篇
    • 转载:3篇
    • 译文:0篇
    • 评论:4条
    文章分类
    最新评论