2

在我对Clojure For Comprehension 示例的回答中,我想删除一些重复项:

(def all-letters (map char (range 65 90)))
(defn kw [& args] (keyword (apply str args)))
(concat
  (for [l all-letters] (kw l))
  (for [l all-letters l2 all-letters] (kw l l2))
  (for [l all-letters l2 all-letters l3 all-letters] (kw l l2 l3)))

我想删除“for”重复。我写了以下宏:

(defmacro combine [times]
 (let [symbols (repeatedly times gensym)
       for-params (vec (interleave symbols (repeat 'all-letters)))]
    `(for ~for-params (kw ~@symbols))))

适用于:

 (concat (combine 1) (combine 2) (combine 3))

但如果我尝试:

 (for [i (range 1 4)] (combine i))

我得到:

CompilerException java.lang.ClassCastException: clojure.lang.Symbol cannot be cast to java.lang.Number, compiling:(NO_SOURCE_PATH:177) 

到底是怎么回事?有没有更好的方法来删除重复?

4

2 回答 2

1

您的问题是这combine是一个在编译时扩展的宏。当您尝试扩展符号i时,它会失败,因为它被设计为采用数字(次)。i只是编译时的一个符号,它只在运行时计算为数值。

我建议重写combine为一个函数而不是一个宏:你在这里并不需要宏,而且函数通常更方便(就像在这种情况下!)。

这是一个递归组合,它可能大致完成您想要的操作:

(defn combine
    ([times] (combine times nil))
    ([times letters]
      (if (<= times 0)
        (keyword (apply str letters))
        (flatten (for [l all-letters] (combine (dec times) (cons l letters)))))))
于 2012-07-17T23:13:02.400 回答
1

您可以修改宏,使其concat成为宏的一部分,如下所示。但我同意 Mikera 的观点,最好有一个函数。

(defmacro combine [start end]
 `(concat
      ~@(for [i (range start end)]
          (let [symbols (repeatedly i gensym)
             for-params (vec (interleave symbols (repeat 'all-letters)))]
          `(for ~for-params (kw ~@symbols))))))

user=> (combine 1 2)
(:A :B :C :D :E :F :G :H :I :J :K :L :M :N :O :P :Q :R :S :T :U :V :W :X :Y)
于 2012-07-18T04:28:27.093 回答