递归写法:
(define (repeated f n)
(if (= n
1)
f
(compose f
(repeated f (- n
1)))))
迭代写法:
(define (repeateds f n)
(define (iter i repeated-
f)
(if (= i
1)
repeated-
f
(iter (- i
1)
(compose f repeated-
f))))
(iter n f))
转载于:https://www.cnblogs.com/R4mble/p/8395483.html
相关资源:JAVA上百实例源码以及开源项目
转载请注明原文地址: https://mac.8miu.com/read-62753.html