如何編寫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/