functional-programming - Clojure:如何在运行时创建函数

Question

我想在运行时完全生成一个 fn(即名称和 arg 符号是在运行时决定的，而不是在代码中)
实现这一目标的最佳方法是什么？

例如，我如何实现以下功能？

(defn gen-fn [name arg-symbols body]
...
...

这将像这样使用:

(gen-fn "my-func-name" (symbol "x") (symbol "y") (println "this is body. x=" x))

请注意，函数名称、参数和主体没有编码，但可以在运行时决定

Answer 1

(defn gen-fn
  [n as b]
  (let [n        (symbol n)
        as       (vec (map symbol as))
        fn-value (eval `(fn ~n ~as ~b))]
    (intern *ns* n fn-value)))

还有一些用途:

user=> (gen-fn "foo" ["x"] '(do (println x) (println (inc x))))
#'user/foo
user=> (foo 5)
5
6
nil

但是，我真的不喜欢这种方法。真的很难闻: eval .为什么要在运行时生成全局变量？我看到错误的命名空间和其他丑陋的打嗝在地平线上出现的各种问题......