如何编写Lisp/Scheme代码？

Question

一个lambda表达式，它使用一个函数（一个参数）和一个数字，并将该函数应用于数字的两倍。

Answer 1

应用的功能数量的两倍：

(lambda (f x) (f (* 2 x))) 

应用的功能数量的两倍（这是什么你可能打算要求）：

(lambda (f x) (f (f x))) 

Answer 2

Greg的答案是正确的，但你可能会考虑如何分解这个问题来自己找到答案。这里有一个方法：

; A lambda expression 
;(lambda()) 

; which takes a function (of one argument) and a number 
;(lambda (fun num)) 

; and applies the function 
;(lambda (fun num) (fun num)) 

; to twice the number 
;(lambda (fun num) (fun (* 2 num))) 

((lambda (fun num) (fun (* 2 num))) + 12) 

Answer 3

这里是另一种方式接近它：

写合同，目的和标题：

;; apply-double : function -> number -> any 
;; to apply a given function to double a given number 
(define (apply-double fun num) ...) 

写一些测试：

(= (apply-double identity 10) 20) 
(= (apply-double - 15) -30) 
(= (apply-double/7) 1/14) 

定义功能：

(define (apply-double fun num) 
    (fun (* 2 num))) 

这是此处配方的缩写：http://www.htdp.org/2003-09-26/Book/