有沒有一種方法可以編寫函數來在Elisp中編寫函數？

Question

我想創建一個函數，該函數返回的其他幾個函數組合，使得

(funcall (compose 'f 'g) x) == (f (g x)) 

我覺得我悲慘地失敗了這一點。到目前爲止，我最好的嘗試：

(defun compose (funcs) 
    "composes several funcitons into one" 
    (lambda (arg) 
    (if funcs 
     (funcall (car funcs) (funcall (compose (cdr funcs)) arg)) 
     arg))) 

但由於某些原因，下面仍返回0：

(funcall (compose '(
      (lambda (a) (* a 3)) 
      (lambda (a) (+ a 2)) 
)) 0) 

有沒有辦法解決呢？

Answer 1

您的代碼需要詞法範圍的lambdas，Emacs Lisp默認不支持。如果您使用Emacs 24，請將lexical-binding設置爲t，您的示例將按照書面方式工作。

如果你使用的是老式的Emacs，你可以使用一個明確的lexical-let形式創建一個詞法範圍的λ：

(require 'cl) 

(defun compose (funcs) 
    "composes several funcitons into one" 
    (lexical-let ((funcs funcs)) 
    (lambda (arg) 
     (if funcs 
      (funcall (car funcs) (funcall (compose (cdr funcs)) arg)) 
     arg)))) 

在我的原代碼