diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Eyal Dechter: The YAP version of assoc.pl has gen_assoc(Assoc, Key, Value). Both SWI and Sicstus use gen_assoc(Key, Assoc, Value). Could it be changed for compatibility with the other systems?

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-02-18 19:41:11 +00:00
parent 0e58a8f41e
commit 56024b2a2c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/assoc.yap
View File

@ -130,14 +130,14 @@ the associated value.
max_assoc(T,K,V) :- max_assoc(T,K,V) :-
rb_max(T,K,V). rb_max(T,K,V).
/** @pred gen_assoc(+ _Assoc_,? _Key_,? _Value_) /** @pred gen_assoc( ?Key, +Assoc, ?Valu_)
Given the association list _Assoc_, unify _Key_ and _Value_ Given the association list _Assoc_, unify _Key_ and _Value_
with two associated elements. It can be used to enumerate all elements with a key-value pair in the list. It can be used to enumerate all elements
in the association list. in the association list.
*/ */
gen_assoc(T,K,V) :- gen_assoc(K, T, V) :-
rb_in(K,V,T). rb_in(K,V,T).
/** @pred get_assoc(+ _Key_,+ _Assoc_,? _Value_) /** @pred get_assoc(+ _Key_,+ _Assoc_,? _Value_)