码迷,mamicode.com
首页 > 其他好文 > 详细

SICP:1.43重复调用函数

时间:2015-04-04 19:43:18      阅读:155      评论:0      收藏:0      [点我收藏+]

标签:

#lang racket

(define (repeated f n)
  (define (compare f1 f2)
    (lambda(x)
      (f1 (f2 x)));lambda
    );compare
  
  (define (doing result n)
    (if (= n 1)
    result
    (doing (compare result f)
           (- n 1))
     );if
    );doing
  (doing f n)
  );repeated

(define (square x)
  (* x x)
  );square

((repeated square 2) 5)

最后结果: 625

技术分享

SICP:1.43重复调用函数

标签:

原文地址:http://www.cnblogs.com/wizzhangquan/p/4392664.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!