SICP 1.2.4 求幂

来源:互联网 发布:苏州网络测试招聘 编辑:程序博客网 时间:2024/06/07 12:56
(define (fast-expt b n)  (cond ((= n 0) 1)        ((even? n) (square (fast-expt b (/ n 2))))        (else (* b (fast-expt b (- n 1))))))(define (even? n)  (= (remainder n 2) 0))(fast-expt 3 3)
0 0
原创粉丝点击