emacs - 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

あなたのコードは、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))))

Answer 2

ライブラリが必要な場合は、ダッシュ機能-composeを参照してください(&rest fns)。