list - 在 Clojure 中将列表列表转换为列表列表的映射

Question

我有一个列表列表，我想将其放入 map 中，其中键是列表中的常见值之一(本例中为动物名称)。我知道如何使用 into {} 和 for 从列表创建 map ，但这并不是我想要的。我希望 map 中的键(动物名称)引用这些值的列表。

我创建了一个列表列表

(def animals (list '("tiger" "fur" "yellow & black stripes") '("tiger" "weight" "150") '("tiger" "home" "India") '("elephant" "skin" "gray") '("elephant" "weight" "1500") '("elephant" "home" "Africa") '("frog" "skin" "green") '("frog" "diet" "insects")))

动物

(("tiger" "fur" "yellow & black stripes") ("tiger" "weight" "150") ("tiger" "home" "India") ("elephant" "skin" "gray") ("elephant" "weight" "1500") ("elephant" "home" "Africa") ("frog" "skin" "green") ("frog" "diet" "insects"))

这不完全符合我的要求(但差不多)

(def animal-map (into {} (for [[name attribute value] animals] [name (list attribute value)])))

当我想要每个键的多个列表时，这会导致每个键只有一个列表

animal-map(列表 map )

{"tiger" ("home" "India"), "elephant" ("home" "Africa"), "frog" ("diet" "insects")}

这就是我想要的结果。

animal-map(列表列表的 map )

{"tiger" ("fur" "yellow & black stripes") ("weight" "150") ("home" "India"),   
"elephant" ("skin" "gray") ("weight" "1500") ("home" "Africa"),   
"frog" ("skin" "green") ("diet" "insects")}  

Answer 1

关于您想要的结果，您发布的最终 map 并没有按照您认为的那样进行。在这张 map 中:

{"tiger" ("fur" "yellow & black stripes") ("weight" "150") ("home" "India")}

这不是一个具有一个键和三个值的映射，这是一个具有两个键的映射("tiger" 和 ("weight""150"))和两个值。

以下内容并未直接回答您的问题，而是就地道的 Clojure 说了一句话。如果您为手头的工作选择合适的数据结构，您将可以更轻松地使用 Clojure。

对于您的初始数据，您可能应该使用向量而不是列表，除非您有充分的理由使用列表。向量在许多操作中表现更好(例如随机访问)；您不需要像列表一样引用向量；和向量表示您正在处理数据而不是代码。

如果您的数据必须从前端而不是后端增长，或者如果您将源代码生成为数据(例如在宏中)，则列表是合适的。

[["tiger" "fur" "yellow & black stripes"]
 ["tiger" "weight" "150"]
 ["tiger" "home" "India"]
 ...]

对于您的最终数据，请考虑使用字符串映射而不是字符串映射列表。使用 assoc-in 创建 map 中的 map 很容易，因为它会为您创建中间 map 。然后您可以使用 get-in 访问数据的子键。

要在字符串到列表的映射中访问动物的属性，您必须对属性列表进行线性搜索。这将很难编码并且性能不佳。

user> (def animal-map (reduce (fn [m [animal k v]]
                                (assoc-in m [animal k] v))
                              {} animals))
#'user/animal-map
user> animal-map
{"frog" {"diet" "insects", "skin" "green"}, 
 "elephant" {"home" "Africa", "weight" "1500", "skin" "gray"}, 
 "tiger" {"home" "India", "weight" "150", "fur" "yellow & black stripes"}}

user> (get-in animal-map ["frog" "diet"])
"insects"

最后，我不确定这些数据是从哪里来的，但考虑对其中一些键使用关键字而不是字符串。它可能适合也可能不适合动物的名字，但它几乎肯定适合动物的属性(体重、家、饮食)。

如果你的键是关键字，你甚至不需要get-in，你可以直接将关键字作为函数使用，或者使用->。你不能用字符串来做到这一点。

user> (def animal-keyword-map (reduce (fn [m [animal k v]]
                                        (assoc-in m [(keyword animal) (keyword k)] v))
                                      {} animals))
#'user/animal-keyword-map
user> animal-keyword-map
{:frog {:diet "insects", :skin "green"}, 
 :elephant {:home "Africa", :weight "1500", :skin "gray"}, 
 :tiger {:home "India", :weight "150", :fur "yellow & black stripes"}}
user> (:weight (:tiger animal-keyword-map))
"150"
user> (-> animal-keyword-map :tiger :weight)
"150"