Clojure For Comprehension 示例

Question

我正在使用 docjure并且它的 select-columns 函数需要一个列映射。我想获取所有列而无需手动指定。
如何将以下内容生成为惰性无限向量序列 [:A :B :C :D :E ... :AA :AB :AC .... :ZZ ... :XFD]？

Answer 1

您的问题归结为:“如何将数字转换为带有字母 A-Z 的 base-26 字符串？”。

这里有一种方法可以做到这一点 - 可能不是最简洁的方法，但让它更优雅留给读者作为练习:)。

假设数字 0-25 映射到“A”-“Z”，26 映射到“AA”，等等。首先我们定义一个函数 to-col将整数转换为列关键字。您可以使用该函数生成无限序列。

(defn to-col [num]
  (loop [n num s ()]
    (if (> n 25)
      (let [r (mod n 26)]
        (recur (dec (/ (- n r) 26)) (cons (char (+ 65 r)) s)))
      (keyword (apply str (cons (char (+ 65 n)) s))))))

这为您提供了一种生成无限列关键字序列的方法:

(take 100 (map to-col (range)))
;; => (: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 :Z :AA :AB :AC :AD :AE :AF :AG :AH :AI :AJ :AK :AL :AM :AN :AO :AP
;; :AQ :AR :AS :AT :AU :AV :AW :AX :AY :AZ :BA :BB :BC :BD :BE :BF :BG :BH
;; :BI :BJ :BK :BL :BM :BN :BO :BP :BQ :BR :BS :BT :BU :BV :BW :BX :BY :BZ
;; :CA :CB :CC :CD :CE :CF :CG :CH :CI :CJ :CK :CL :CM :CN :CO :CP :CQ :CR
;; :CS :CT :CU :CV)