更新球拍中Hash表的函数

Question

我是一个球拍的初学者，我正试图用散列更新来更新一个哈希表！其中的值是可变集。以下是代码行：

(hash-update! hash key (curryr set-add! new_val) (mutable-set 1))

但是我收到了一个错误

 expected: set?
given: #<void>
argument position: 1st
other arguments...:
  x: 2

在那里我尝试了2作为new_val

有什么建议吗？

Answer 1

这是因为更新程序应该是将值作为输入并生成新值输出的函数。由于集合是可变的，而且您使用set-add!来修改它，所以“更新程序”不会返回一个新值，只会变异旧值并产生空值。

有两种方法可以解决这个问题：

作为值的hash-update!.

• Immutable

• 可变集，分别对它们进行变异，而不是在集合中作为值，使用hash-update!.中的函数更新器。

由于您指定了值为可变集，所以我将显示(1)。

您可以做的最基本的事情是，hash-ref获得一个可变集，然后在此上使用set-add!。

(set-add! (hash-ref hash key) new-val)

但是，如果该键还没有可更改的设置值，则此操作不起作用。当表还不存在时，需要将它添加到表中，这就是为什么您有(mutable-set 1)故障结果参数的原因。解决这个问题的方法不是hash-update!，而是hash-ref!。

(set-add! (hash-ref! hash key (mutable-set 1)) new-val)

虽然如果你把失败包起来可能会更好

(set-add! (hash-ref! hash key (λ () (mutable-set 1))) new-val)