使用 Clojure 进行函数式编程

Question

大师

这里有一个问题要问你：我正在开发一个 clojure 程序， 涉及将函数传递给函数。

我有这样的事情：

(defn funct-op [args]
      ((first args) 
       (second args) 
       (last args)   )

(funct-op '(+ 2 2))

我怎样才能哄骗funct-op给我4而不是我的2 目前得到？我可能需要将函数传递给宏作为我的 项目取得进展。关于如何做到这一点有什么建议吗？感谢您的帮助！

Answer 1

为了将“+”转换为函数，您可以使用resolve。这应该适用于核心函数，但您可能需要 ns-resolve 来实现自定义函数。然后，您可以使用 apply 将其余参数传递给该函数。

(defn funct-add [args] (apply (resolve (first args)) (rest args)))

不确定您的最终目标是什么，但我认为这就是您正在寻找的答案。

Answer 2

funct-add 到底应该做什么？如果是 (funct-add '(- 2 2)) 怎么办？

无论如何，请考虑申请，即使已经结束：

(defn apply-wrapper [args]
   (apply (first args) (rest args)))

; note use of of the [...] form
(apply-wrapper [+ 2 2]) ; => 4
(apply-wrapper [- 2 2]) ; => 0

比较这些形式可能会有所启发：

(+ 1 2)   ; 3
'(+ 1 2)  ; (+ 1 2)
[+ 1 2]   ; [#<core$_PLUS_ clojure.core$_PLUS_@a8bf33> 1 2]

注意最后一个形式是如何评估的；它不仅仅是一个“文字列表”——不再有符号了！ :-)

快乐编码。

Answer 3

我不确定，这些东西？

(defn funct-op [f list]
  (apply f list))

(funct-op + '(1 2));=>3