[英]Convert a list of maps by the values of the maps [clojure]
我有一个包含许多地图的列表(所有地图都有相同的键),如下所示:
({:a 1} {:a 1} {:a 2} {:a 2} {:a 3} {:a 2})
我想将其转换为存储每个 map 值出现的 map。 例如,上面的列表应返回以下 map:
{:1 2, :2 3, :3 1}
关于我该怎么做的任何想法?
(def m '({:a 1} {:a 1} {:a 2} {:a 2} {:a 3} {:a 2}))
(frequencies (map :a m)) ;; => {1 2, 2 3, 3 1}
请注意,结果的键不是关键字,因为这样做很奇怪。
我会这样解决它:
(ns tst.demo.core
(:use demo.core tupelo.core tupelo.test))
(defn maps->freqs
[maps]
(frequencies
(for [m maps]
(second (first m)))))
(dotest
(let [data (quote
({:a 1} {:a 1} {:a 2} {:a 2} {:a 3} {:a 2}))]
(is= (maps->freqs data)
{1 2, 2 3, 3 1})))
以上使用了我最喜欢的模板项目。 最好的技术是慢慢建立它:
(defn maps->freqs
[maps]
(for [m maps]
(first m)))
然后(spyx-pretty (maps->freqs data))
产生
(maps->freqs data) =>
[[:a 1] [:a 1] [:a 2] [:a 2] [:a 3] [:a 2]]
修改它:
(defn maps->freqs
[maps]
(for [m maps]
(second (first m))))
结果
(maps->freqs data) =>
[1 1 2 2 3 2]
然后使用frequencies
得到最终结果。
请务必阅读文档列表,尤其是 Clojure CheatSheet!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.