阅读lazy seq-如何添加索引

Question

我有一个玩具项目，我想把一些字符串值添加到Redis数据库中。输入来自一个巨大的CSV文件。下面的（懒）函数工作正常，但我不知道如何添加到键的索引值读取到输入文件-两个注释行。

你能给我它的提示/网址/参考吗？谢谢你！

    (defn collector [myfile]
        (with-open [rdr (io/reader myfile)]
          (doseq [line (line-seq rdr)]
               ; [idx (iterate inc 0)]
            (let [[k v1 v2 v3 v4 v5 v6 v7] (clojure.string/split line #",")]
              (red/set db
                (str "key:" k)
               ;(str "key:" k ":" idx)
                (str v1 "-" v5 "-" v6))))))

Answer 1

在不改变代码结构的情况下，最好的方法是将索引附加到以下行：

（doseq[[idx行]（映射索引向量（行顺序rdr））…）

然后第二行将按计划工作。

（map indexed vector coll）将两个参数（索引和序列元素）传递给vector函数，生成它们的元组，并对其进行解构绑定[idx line]将其元素绑定到所需的名称。

这是索引集合的常用习惯用法。您也可以这样做：

（映射向量（范围）coll），其工作方式与map-index相同，尽管这个习惯用法可用于制作任何集合的元组：

(map vector (range) [:a :b :c :d] (iterate (partial * 2) 1))

;;=> ([0 :a 1] [1 :b 2] [2 :c 4] [3 :d 8])