13 lines
252 B
Plaintext
13 lines
252 B
Plaintext
|
:- module(passive_check2,[passive_check2/0]).
|
||
|
|
:- use_module(library(chr)).
|
||
|
|
|
||
|
|
:- chr_constraint a/1, b/2.
|
||
|
|
|
||
|
|
:- chr_option(debug,off).
|
||
|
|
:- chr_option(optimize,full).
|
||
|
|
|
||
|
|
a(X) # ID, b(X,R) <=> R = 1 pragma passive(ID).
|
||
|
|
|
||
|
|
passive_check2 :-
|
||
|
|
a(X), b(X,R), R == 1.
|