2

我有一个名为 bag 的 defrecord。它的行为类似于要计数的项目列表。这有时称为频率或人口普查。我希望能够做到以下几点

(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,我是否会以正确的方式解决这个问题?

4

2 回答 2

4

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,您通常希望尽可能使用普通的 vanilla 数据结构。

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

于 2010-09-19T03:10:10.263 回答
3

Rob 的回答当然是正确的;我发布这个是为了回应 OP 对此的评论——也许它可能有助于实现所需的功能deftype

我曾经为 Clojure 编写了一个“默认映射”的实现,它的作用就像一个常规映射,除了当被问及其中不存在的键时它返回一个固定的默认值。代码在这个 Gist中。

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

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 版本源代码中指向该点的直接链接。

更新:

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

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

于 2010-09-19T04:02:44.567 回答