sicp每日一题[1.41]

最新推荐文章于 2026-06-25 09:59:11 发布

原创最新推荐文章于 2026-06-25 09:59:11 发布 · 494 阅读

6 ·

本内容遵循CC 4.0 BY-SA版权协议

GEO检测

标签

#sicp #lisp #scheme #编程

收录于

sicp 同时被 3 个专栏收录

86 篇文章

订阅专栏

lisp

59 篇文章

订阅专栏

scheme

14 篇文章

订阅专栏

Exercise 1.41

Define a procedure $d o u b l e$ that takes a procedure of one argument as argument and returns a procedure that applies the original procedure twice. For example, if $in c$ is a procedure that adds 1 to its argument, then (double inc) should be a procedure that adds 2. What value is returned by

(((double (double double)) inc) 5)

理解了可以把过程(procedure)作为返回值的概念之后，这道题就变得非常简单， $d o u b l e$ 过程只需要将传进来的参数过程连续执行2次就行

(define (double f)
  (lambda (x) (f (f x))))

(define (inc a)
  (+ a 1))

(define (halve a)
  (/ a 2))


(((double (double double)) inc) 5)

(((double double) halve) 1024)

; 执行结果：
21
64