rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tuples_in/2 now works

Browse Source
This commit is contained in:
Markus Triska
2020-04-08 17:49:06 +02:00
parent 794ceac440
commit e442fddc66
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/prolog/lib/clpz.pl
View File

@@ -4295,12 +4295,14 @@ tuples_in(Tuples, Relation) :-
relation_tuple(Relation, Tuple) :- relation_tuple(Relation, Tuple) :-
relation_unifiable(Relation, Tuple, Us, _, _), relation_unifiable(Relation, Tuple, Us, _, _),
( ground(Tuple) -> memberchk(Tuple, Relation) ( ground(Tuple) -> memberchk(Tuple, Relation)
; tuple_domain(Tuple, Us), ; phrase(tuple_domain(Tuple, Us), _),
( Tuple = [_,_|_] -> tuple_freeze(Tuple, Us) ( Tuple = [_,_|_] -> tuple_freeze(Tuple, Us)
; true ; true
) )
). ).
list_first_rest([L|Ls], L, Ls).
tuple_domain([], _) --> []. tuple_domain([], _) --> [].
tuple_domain([T|Ts], Relation0) --> tuple_domain([T|Ts], Relation0) -->
{ maplist(list_first_rest, Relation0, Firsts, Relation1) }, { maplist(list_first_rest, Relation0, Firsts, Relation1) },