clojure - 在 Clojure 中将字符串转换为嵌套映射

Question

我有一个包含一些文本的文件，例如：

1|apple|sweet
2|coffee|bitter
3|gitpush|relief

我想使用地图来处理这个输入。在 Java 或 Python 中，我会制作一个嵌套映射，例如：

{1: {thing: apple, taste: sweet},
2: {thing: coffee, taste: bitter},
3: {thing: gitpush, taste: relief}}

甚至是地图内的列表，例如：

{1: [apple, sweet],
2: [coffee, bitter],
3: [grape, sour]}

最终目标是使用第一列作为键有效地访问最后两列的数据。我想在 Clojure 中执行此操作，但我是新手。到目前为止，我已经成功地使用以下代码创建了一个地图列表：

(def cust_map (map (fn [[id name taste]] 
       (hash-map :id (Integer/parseInt id)
                 :name name 
                 :taste taste ))
     (map #(str/split % #"\|") (line-seq (clojure.java.io/reader path)))))

我明白了，但这不是我想要的。

({1, apple, sweet},
{2, coffee, bitter},
{3, gitpush, relief})

如果您能告诉我如何在 Clojure 中最有效地执行嵌套映射和列表内映射，或者两者兼而有之，那就太好了。谢谢！

标签： clojurelisp

Answer 1

当您使用 构建地图时hash-map，参数是替代键和值。例如：

(hash-map :a 0 :b 1)
=> {:b 1, :a 0}

据我了解，您想要一个唯一的键，整数，它映射到一个复合对象，一个映射：

(hash-map 0 {:thing "apple" :taste "sweet"})

此外，您不想调用map，这会导致一系列地图。您希望构建单个哈希映射。尝试使用reduce：

(reduce (fn [map [id name taste]]
          (merge map
                 (hash-map (Integer/parseInt id)
                           {:name name :taste taste})))
        {}
        '(("1" "b" "c")
          ("2" "d" "e")))

- - 编辑

这是完整的测试程序：

(import '(java.io BufferedReader StringReader))

(def test-input (line-seq
                 (BufferedReader.
                  (StringReader.
                   "1|John Smith|123 Here Street|456-4567
2|Sue Jones|43 Rose Court Street|345-7867
3|Fan Yuhong|165 Happy Lane|345-4533"))))

(def a-map
  (reduce
   (fn [map [id name address phone]]
     (merge map
            (hash-map (Integer/parseInt id)
                      {:name name :address address :phone phone})))
   {}
   (map #(clojure.string/split % #"\|") test-input)))

a-map
=> {1 {:name "John Smith", :address "123 Here Street", :phone "456-4567"}, 2 {:name "Sue Jones", :address "43 Rose Court Street", :phone "345-7867"}, 3 {:name "Fan Yuhong", :address "165 Happy Lane", :phone "345-4533"}}