如何让核心 clojure 函数与我的 defrecord 一起使用

Question

我有一个叫做包的解压记录。它的行为就像一个要计数的项目列表。这有时称为频率或普查。我希望能够执行以下操作，

(def b (bag/create [:k 1 :k2 3])  
(keys bag)
=> (:k :k1)

我尝试了以下操作：

(defrecord MapBag [state]                                                                                                                                         
  Bag                                                                                                                                                             
   (put-n [self item n]                                                                                                                                          
     (let [new-n (+ n (count self item))]                                                                                                                        
          (MapBag. (assoc state item new-n))))                                                                                                                      

  ;... some stuff

  java.util.Map                                                                                                                                                   
    (getKeys [self] (keys state)) ;TODO TEST                                                                                                                      

  Object                                                                                                                                                          
   (toString [self]                                                                                                                                              
     (str ("Bag: " (:state self)))))   

当我尝试在 repl 中要求它时，我得到：

java.lang.ClassFormatError: Duplicate interface name in class file compile__stub/techne/bag/MapBag (bag.clj:12)

发生了什么事？如何在我的包上获得钥匙功能？另外，我是否可以通过假设 clojure 的 keys 函数最终在作为其参数的地图上调用 getKeys 来以正确的方式进行处理？

Answer 1

Defrecord 会自动确保它定义的任何记录都参与 ipersistentmap 接口。因此，您可以在不执行任何操作的情况下调用其上的键。

因此，您可以定义一条记录，然后实例化并调用键，如下所示：

user> (defrecord rec [k1 k2])
user.rec
user> (def a-rec (rec. 1 2))
#'user/a-rec
user> (keys a-rec)
(:k1 :k2)

您的错误消息表明您的声明之一正在复制 defrecord 为您提供的接口免费。我认为实际上可能两者兼而有之。

是否有某种原因导致您不能仅使用普通的香草地图来达到您的目的？对于 clojure，您通常希望尽可能使用普通的数据结构。

编辑：如果出于某种原因您不希望包含 ipersistentmap，请查看 deftype。

Answer 2

罗布的回答当然是正确的；我发布这个是为了回应OP对其的评论——也许它可能有助于使用deftype实现所需的功能。

我曾经为 Clojure 编写过一个“默认映射”的实现，它的作用就像常规映射一样，只不过当询问其中不存在的键时它会返回一个固定的默认值。代码位于此要点中。

我不确定它是否直接适合您的用例，尽管您可以使用它来做类似的事情，

user> (:earth (assoc (DefaultMap. 0 {}) :earth 8000000000))
8000000000
user> (:mars (assoc (DefaultMap. 0 {}) :earth 8000000000))
0

更重要的是，它应该让您了解使用 deftype 编写此类内容所涉及的内容。

话又说回来，它是基于 clojure.core/emit-defrecord 的，所以你可能会看看 Clojure 源代码的那一部分......它做了很多你不需要做的事情（因为它是一个准备宏扩展的函数——里面有很多语法引用之类的东西，你必须将其剥离才能直接使用代码），但它肯定是可能的最高质量的信息源。 这里是直接的链接到 Clojure 1.2.0 版本的源代码中的该点。

更新：

我意识到另一件事可能很重要。如果您依赖特殊的类似地图的类型来实现此类事情，客户端可能会将其合并到常规地图中，并失去“默认”功能（实际上还有任何其他特殊功能）过程。只要您的类型所维护的“地图相似”错觉足够完整，可以用作常规地图，传递给 Clojure 的标准函数等，我认为可能没有办法解决这个问题。

因此，在某种程度上，客户可能必须知道其中涉及一些“魔法”；如果他们得到诸如 (:mars {...}) 之类的查询的正确答案（{...} 中没有 :mars ），他们必须记住不要将其合并到常规地图中（合并 - 反过来也可以正常工作）。