Clojure -统计嵌套map中嵌套键的出现次数？
Clojure是一种函数式编程语言，它运行在Java虚拟机上，并且具有强大的并发处理能力。Clojure中的数据结构主要是基于不可变性的，其中包括了嵌套的map数据结构。如果要统计嵌套map中嵌套键的出现次数，可以使用递归的方式遍历整个嵌套map，并使用计数器来记录每个键的出现次数。
以下是一个示例代码，用于统计嵌套map中嵌套键的出现次数：
(defn count-nested-keys [data key]
(let [counter (atom 0)]
(defn count-keys [data key]
(cond
(map? data) (do
(when (contains? data key)
(swap! counter inc))
(doseq [v (vals data)]
(count-keys v key)))
(coll? data) (doseq [v data]
(count-keys v key))
:else nil))
(count-keys data key)
@counter))使用示例：
(def nested-map {:a {:b {:c 1 :d 2}}})
(count-nested-keys nested-map :c) ; 统计嵌套map中键:c的出现次数该示例中，我们定义了一个count-nested-keys函数，它接受两个参数：data表示嵌套map数据结构，key表示要统计的嵌套键。函数内部使用了一个原子计数器counter来记录键的出现次数。通过递归遍历嵌套map的每个键值对，如果当前键与目标键相同，则将计数器加1。最后返回计数器的值。
对于Clojure的推荐腾讯云相关产品和产品介绍链接地址，由于题目要求不能提及具体的云计算品牌商，这里无法给出具体的推荐。但是可以参考腾讯云的云计算服务，如云服务器、云数据库、云存储等，以满足不同场景下的需求。
相关·内容
1回答
Clojure和ClojureScript REPL产生不同的输出
clojure、clojurescript、depth-first-search、read-eval-print-loop
使用以下深度优先搜索的递归定义，Clojure (JVM)和ClojureScript (使用浏览器连接的repl和lumo进行了测试) REPL产生两种不同的输出，即打印节点的顺序不同，并且Clojure REPL产生重复的:f。ClojureScript顺序是我所期望的行为。为什么会这样呢？
代码：
(defn dfs
([g v] (dfs g v #{}))
([g v seen]
(println v)
(let [seen (conj seen v)]
(for [n (v g)]
(if-not (contains? seen n)
浏览 4提问于2017-02-27得票数 4
回答已采纳
4回答
在嵌套映射中查找特定键的值
clojure、hashmap
在Clojure中，如何找到嵌套映射结构中可能深层次的键的值？例如：
(def m {:a {:b "b"
:c "c"
:d {:e "e"
:f "f"}}})
(find-nested m :f)
=> "f"
浏览 2提问于2015-01-22得票数 10
回答已采纳
3回答
Clojure -统计嵌套map中嵌套键的出现次数？
clojure、edn
我有一个嵌套的map，如下所示：
{:A {:B {:A {:B {:A {:B 0}}}}}}
我想计算出现的次数:A :B，所以在上面的例子中，结果是3。
我最初的想法是使用clojure.walk/postwalk遍历映射并递增一个计数器。
有没有更好的方法来实现这一点？
浏览 8提问于2018-01-22得票数 0
回答已采纳
2回答
同一多重方法的不同方法之间的递归
xml、recursion、clojure
我正在编写一个Clojure库来解析Mac的基于XML的。除非您给它一个大的输入文件，否则代码工作得很好，这时您将得到java.lang.OutOfMemoryError: Java heap space。
下面是一个输入文件示例(足够小到可以正常工作)：
<plist version="1.0">
<dict>
<key>Integer example</key>
<integer>5</integer>
<key>Array example</key>
浏览 2提问于2011-02-01得票数 5
回答已采纳
4回答
用于进度报告的惯用clojure？
functional-programming、lisp、clojure、imperative-programming
我应该如何监控clojure中映射函数的进度？
在处理命令式语言中的记录时，我经常打印一条消息，以表明事情已经进行了多远，例如，每1000条记录报告一次。从本质上讲，这就是计算循环重复次数。
我想知道在clojure中我可以采取什么方法来解决这个问题，在clojure中，我正在将一个函数映射到我的记录序列上。在这种情况下，打印消息(甚至统计进度)似乎基本上是副作用。
到目前为止，我想出的是：
(defn report
[report-every val cnt]
(if (= 0 (mod cnt report-every))
(println "Done" c
浏览 1提问于2010-01-08得票数 34
回答已采纳
1回答
Clojure: atom和ref的惯用法？
clojure、idioms、ref、stm
我正在编写一些Clojure代码，这些代码将引用一个map并在map中增加一个键值对。我认为我使用ref是正确的，但是我不确定atom。我需要使用交换吗！说得更地道？我是STM和Clojure的新手，这看起来是线程安全的吗？我遗漏了什么？
(defn increment-key [ref key]
(dosync
(if (= (get @ref key) nil)
(alter ref assoc key (atom 1))
(alter ref assoc key (atom (inc @(get @ref key))
浏览 2提问于2013-04-14得票数 3
回答已采纳
11回答
在Clojure中将函数映射到map的值上
dictionary、clojure、map-function
我希望将一个值映射转换为另一个映射，使用相同的键，但对值应用一个函数。我认为在clojure api中有一个函数可以做到这一点，但我一直找不到它。
下面是我正在寻找的实现示例
(defn map-function-on-map-vals [m f]
(reduce (fn [altered-map [k v]] (assoc altered-map k (f v))) {} m))
(println (map-function-on-map-vals {:a "test" :b "testing"} #(.toUpperCase %)))
{:b TESTI
浏览 7提问于2009-11-05得票数 140
回答已采纳
2回答
将一棵树修成正方形
clojure、sicp
我正在研究问题2.从计算机程序的结构和解释。我的书是有计划的，但我是在克洛尔做练习。
问题是编写的代码需要一棵数字树，并返回一棵新的带有数字平方的树。我做过两方面的工作：
没有高阶函数：(defn square-tree1 1 树)
使用map (defn正方形树2 树)
其中：
(defn square [x]
(* x x))
我对此的测试是：
(deftest e2.30a
(testing "Ex 2.30a: square-tree"
(is (=
(square-tree1
(list 1
浏览 0提问于2015-12-12得票数 4
回答已采纳
2回答
如果比较列表，Clojure的deftest宏中的断言错误
clojure、clojure-testing
我的关于Clojures的问题是捍卫宏，或者更一般地问如何比较由函数创建的列表。但我是新来的，不知道具体的原因。也许还有其他人有主意？
首先，所报告的信息：
失败(to-符号-列表-测试)(util_test.clj:105)预期：((引用(a (非b) c)) (从符号到符号列表"a“(不是b)”c"))
实际：(不(= (a ( b) c) (a ( b) c))
但很明显，引用的(a (不是b) c) (a ( b) c)应该是真的。
第二，具体的测试代码：
(deftest to-symbol-list-test
(is (= '(a (not b)
浏览 6提问于2017-12-18得票数 0
回答已采纳
2回答
用于解构映射的Clojure快捷方式
clojure
当我学习如何使用快捷方式:keys来解构地图时，这个问题突然出现在我面前。
假设我有以下映射：
(def my-hashmap {:a "A" :b "B" :c "C" :d "D"})
现在我可以参考这些值的编写
(let [{first-key :a second-key :b} my-hashmap]
(println first-key second-key))
我得到了A B。现在使用:keys时，键必须与原始键相同(没有:)，否则会返回nil吗？因此，对于
(let [{:keys [first-key s
浏览 3提问于2015-07-04得票数 2
3回答
是否有更好的方法在Clojure中编写这个枢轴函数？
clojure
我编写了一个函数来“枢轴”一些数据表，但不知道是否有更简单的方法来实现同样的结果。
(defn pivot-ab-ba
[data]
(r/reduce
(fn [result [ks c]]
(assoc-in result ks c))
{}
;; pivot {a [b1 c1 b2 c2]} => [[b1 a] c1] [[b2 a] c2]
(mapcat (fn [[a bcseq]]
;; pivot [a [b c]] => [[[b a] c]]
(mapcat (fn
浏览 0提问于2019-05-23得票数 0
回答已采纳
3回答
Clojure:如何确定嵌套列表是否包含非数字项？
list、clojure、nested-lists
我需要编写一个Clojure函数，它以未求值的任意深度嵌套列表作为输入，然后确定列表中的任何项(不位于函数位置)是否为非数值项。这是我第一次用Clojure写东西，所以我有点困惑。这里是我第一次尝试创建这个函数：
(defn list-eval
[x]
(for [lst x]
(for [item lst]
(if(integer? item)
(println "")
(println "This list contains a non-numeric value")))))
我尝试使用嵌套的for
浏览 1提问于2017-09-28得票数 0
回答已采纳
7回答
在Clojure中列出目录中的文件
java、clojure
如何在Clojure中的特定目录中创建所有文件的列表？我必须求助于调用Java吗?或者Clojure可以在本地处理吗？
浏览 4提问于2011-12-20得票数 63
回答已采纳
2回答
新手在Clojure中转换CSV文件
perl、clojure
我对编程既是新手，也是老手--大多数情况下，我只是在工作中编写了许多小的Perl脚本。Clojure是在我想学习Lisp的时候出现的，所以我也在尝试学习Clojure，而不是学习Java。这很难，但到目前为止还是很有趣的。
我已经看到了几个与我的问题类似的例子，但没有一个与我的问题空间完全对应。有没有一种规范的方法来提取Clojure中CSV文件的每一行的值列表？
下面是一些实际工作的Perl代码；其中包含了针对非Perler的注释：
# convert_survey_to_cartography.pl
open INFILE, "< coords.csv";
浏览 5提问于2009-11-17得票数 9
3回答
如何在测试套件中包含clojure.spec函数
unit-testing、clojure、generative-testing
在通用测试套件中是否包含clojure.spec'd函数？我知道我们可以和直接。
(ns foo
(:require [clojure.spec :as s]
[clojure.spec.test :as stest]))
(defn average [list-sum list-count]
(/ list-sum list-count))
(s/fdef average
:args (s/and (s/cat :list-sum float? :list-count integer?)
#
浏览 6提问于2016-11-19得票数 10
回答已采纳
2回答
将序列中的每个向量分成两个部分:包含在以前向量中的旧元素和从未见过的新元素。
lisp、clojure
我做得对吗？我应该使用的标准库中有什么功能吗？这是我的第一个真正的(Ish)世界关闭程序…。
输入
(def data
[[{:id 5 :name "a"} {:id 1 :name "b"}], [{:id 4 :name "c"} {:id 1 :name "d"}]])
码
这些元素是地图，并根据它们的:id进行比较。
(def precomputed
(reductions
(fn [global, v]
(let [seen? (:seen? global)
new (
浏览 0提问于2014-10-26得票数 1
2回答
如何更新clojure中特定索引处的2D向量值？
arrays、clojure
我正在解决一个寻找宝藏的问题，我想改变我的向量数据值。那么，我该怎么做呢？ 我试了那么多东西，但都不管用。我尝试了assoc，update，assoc-in，update-in和all。 (println (update-in data [row col] "+"))
(def data1 (-> data (assoc-in [0 0] \+)))
(println data1) 所以，我的向量是这样的 ["---#--###----"
"---#---#-#---"
"-#-####---##-"
&#
浏览 4提问于2019-05-28得票数 1
回答已采纳
2回答
给定以下树(或Clojure中的任何其他形式，包括地图和向量)：
'( (a b) (c d) )
我想在Clojure中生成一个映射，该映射根据整个表单的深度优先遍历来索引每个子表单，并提供表单子表(如果有的话)索引的向量(或列表)。
0 -> a []
1 -> b []
2 -> (a b) [0 1]
3 -> c []
4 -> d []
5 -> (c d) [3 4]
6 -> ( (a b) (c d) ) [2 5]
到目前为止，我只使用clojure.walk来生成第一部分(为子表单建立索引)，但对于如何生成孩子的索引也感到
浏览 3提问于2013-02-13得票数 8
回答已采纳
1回答
在Clojure中，如何从文本文件中读取分层数据结构？
json、data-structures、clojure
我有一个包含以下内容的文本文件：
section1
name=test
value
attr1=v1
attr2=v2
section2
age=20
prop
attr3=v3
我想读取它，并将其呈现为树数据结构(或JSON)，如下所示：
{:section1
{:name "test"
:value {:attr1 "v1"
:attr2 "v2" }}
:section2
{:age 20
:pr
浏览 0提问于2018-07-29得票数 0
回答已采纳
3回答
对列表中的每一项进行操作
list、clojure、functional-programming、return-value
我在克洛尔做了我的第一个功能程序。我有一些问题，弄清楚如何在列表中、列表中的每个列表中逐个遍历，并在保留返回值的同时对其进行操作。我确信这个问题来自于我对Clojure和functional的不熟悉，并希望有人能解释一下做以下工作的最佳方法：
psuedo-code algorithm:
for each lst in list
for each item in lst
return_values.append = do_something(item)
我首先尝试嵌套两个doseq函数，然后调用我的do_something函数，该函数可以调用项上的函数，但没有保存返回值。然后
浏览 5提问于2015-11-15得票数 5
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
