问题描述
使用列表发明了快速而肮脏的哈希，即
[ key1:val1,key2:val2,....]
我可以获得键和值：
hl_keys(HL,Res) :- maplist(\I^K^(I = K:_),HL,Res).
hl_vals(HL,Res) :- maplist(\I^V^(I = _:V),Res).
但是我如何按键和按值获取特定值？
解决方法
很简单：
hl_val(HL,Key,Res) :- member(Key:Res,HL).
hl_key(HL,Val,Res) :- member(Res:Val,HL).
好处是它可以作为双向散列
