快速字典或哈希列表:值按键和键按值?

Question

使用列表发明了快速和肮脏的哈希，即

[ key1:val1,key2:val2, ....]

我可以得到键和值:

hl_keys(HL,Res) :- maplist(I^K^(I = K:_),HL,Res).
hl_vals(HL,Res) :- maplist(I^V^(I = _:V),HL,Res).

但是如何通过键和键来获得特定的值呢?

Answer 1

这很容易:

hl_val(HL,Key,Res) :- member(Key:Res,HL).
hl_key(HL,Val,Res) :- member(Res:Val,HL).

好的是它作为双向散列