带有可选标志的Clojure参数

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

集合确实通过“包含”提供了基于值的快速查找,那么

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

如果没有多个标志,则可以使用如下分解:

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

clojure.contrib.def 包括 defnk

destructuring

(defn myfunction 
  [value & {:keys [go-there do-this do-that times] :or {times 1}}]
  {:pre [(integer? times) (< 0 times)]}
  (println "Saw a" value)
  (when go-there
    (dotimes [n times]
      (when do-this (println "Did THIS with" value))
      (when do-that (println "Did THAT with" value)))))

可通过以下方式调用上述函数:

(myfunction "foo" :go-there true :do-this true :do-that false :times 5)

请注意,可以使用定义键的默认值 :or {times 1} 条款由于该默认值,以下函数调用将只循环一次:

(myfunction "foo" :go-there true :do-this true :do-that false)

precondition expressions 允许方便地测试参数,这也适用于解构键的值,如中所示 {:pre [...]}

(myfunction "foo" :go-there true :do-this true :do-that false :times -1)

严格地说,这不是写这篇文章最有效的方式,但很明显

(defn myfunction [value & flags] 
  (cond (contains? (set flags) :a) 1
        (contains? (set flags) :b) 2)

设置因子(设置标志)可能更有效。