macros - Clojure:是否可以创建一个宏来在单个 condp 子句中创建两个元素？

Question

condp 子句如下所示:

      "plet" (make-adj 2 "ète")
      "iet"  (make-adj 2 "ète")
      "nin"  (make-adj 1 "gne")

我想将条件添加到 make-adj 函数调用中，而不是在一行中重复该条件两次。我想要一个可以改变这个的宏:

(test-make-adj "plet" 2 "ète")
(test-make-adj "iet" 2 "ète")
(test-make-adj "nin" 1 "gne")

进入此:

      "plet" (make-adj 2 "ète" "plet")
      "iet"  (make-adj 2 "ète" "iet")
      "nin"  (make-adj 1 "gne" "nin")

Answer 1

condp 有内置功能来支持这种事情:

(condp #(if (= %1 %2) %1) condition
  "plet" :>> #(make-adj 2 "ète" %)
  "iet"  :>> #(make-adj 2 "ète" %)
  "nin"  :>> #(make-adj 1 "gne" %))

#(if (= %1 %2) %1) 是一个二进制函数，用于检查其参数是否相等，如果相等则返回第一个参数或nil 否则。

:>> 使得在 condition 上评估谓词的结果，例如"plet" 被传递给 #(make-adj ...) 函数。对于上述谓词，这意味着如果 (= "plet"condition) 为 true，则 "plet" 将传递给 #(make-adj ...)。有关详细信息，请参阅(doc condp)。

如果仍然感觉输入太多，您可以创建一个辅助函数:

(defn make-adj* [n s]
  (fn [c] (make-adj n s c))

然后像这样使用它:

(condp #(if (= %1 %2) %1) condition
  "plet" :>> (make-adj* 2 "ète")
  ...)