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

请注意,函数名称,args和body未编码,但可以在运行时决定

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.为什么要在运行时生成全局变量？我看到错误的命名空间和其他丑陋的打嗝出现的各种问题......