具有可选标志的Clojure参数

Question

将关键字作为可选标志实现到函数的最佳方法是什么？我想进行函数调用,例如:

(myfunction 5)
(myfunction 6 :do-this)
(myfunction 3 :go-here)
(myfunction 2 :do-this :do-that)

使用defn,我可以定义一个函数,例如:

(defn myfunction [value & flags] ... )

但这flags成了一个清单.我可以编写自己的函数来搜索列表,但是这样的函数不包含在核心库中,所以我认为它不是惯用的.

我现在用的是什么:

(defn flag-set? [list flag] (not (empty? (filter #(= flag %) list))))
(defn flag-add [list flag] (cons flag list))
(defn flag-remove [list flag] (filter #(not= flag %) list))

Answer 1

列表(以及向量和映射)不是基于值的查找的数据结构的良好选择(将是线性时间),这就是为什么clojure.core没有这样的函数.

集合通过"contains？"提供快速的基于值的查找,那么怎么样

(defn foo [value & flags]
  (let [flags (set flags)]
    (if (contains? flags :add-one)
      (inc value)
      value)))

如果没有多个标志,您可以使用这样的解构:

(defn foo [value & [flag]] …)

Answer 2

clojure.contrib.def包括defnk-macro,它使用关键字参数定义函数更容易.