如何编写一个定义另一个具有给定名称的函数的函数

Question

这是我的 clojure 代码：

(defn salutation-adder-maker                                                                                   
  ([salutation call]                                                                                     
   (def call (salutation-adder-maker salutation)))                                                             
  ([salutation]                                                                                          
   #(str % salutation))                        
)                                                                                                        
(salutation-adder-maker "-Thanks!" salutation1)                                                              
(salutation1 "Help me!")

下面两行代码给出了一个错误，无法解析符号salutation1。该函数编译得很好，但这是因为它将函数定义为call。因此以下代码有效：

(call "Help me!")

吐出来

Help me-Thanks!

而不是函数salutation1 具有该功能。如何更改代码以使 salutation1 执行与 call 当前相同的操作？

我希望能够传递两个参数：

• 最后添加的称呼
• 添加该称呼的函数的名称

例如：

(salutation-adder-maker "-Have a good day!" day_salutation)
(day_salutation "I will talk to you later")=>"I will talk to you later-Have a good day!"

Answer 1

您的代码似乎假定def 像函数一样工作。尽管语法不同，但它非常不同，特别是您用作 def 的第一个参数的符号必须在编译时解析，而不是在运行时解析。因此，要在def 之上构建，您将倾向于使用宏，而不是函数。这是有问题的，因为虽然 2-args arity 需要宏，但 1-arg arity 最好由函数提供。

让我建议将工作拆分为一个函数和一个宏：

(defn salutation-maker [salutation]
  #(str % salutation))

(defmacro defsalutation [name salutation]
  `(def ~name (salutation-maker ~salutation)))