13 lines
201 B
Prolog
13 lines
201 B
Prolog
:- use_module(library(assoc)).
|
|
|
|
test :-
|
|
empty_assoc(A1),
|
|
put_assoc(([a]-1), A1, 1, A2),
|
|
put_assoc(([a]-2), A2, 1, A3),
|
|
put_assoc(([b]-1), A3, 1, _).
|
|
|
|
|
|
?- test.
|
|
false, unexpected.
|
|
true.
|