This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/cplint/examples/light.cpl
2009-02-16 12:23:29 +00:00

27 lines
310 B
Plaintext

/*
?- p(light).
yes
?- s([push,replace],P).
P = 0.5 ?
yes
?- s([push,light],P).
P = 0.5 ?
yes
?- s([push,light,replace],P).
P = 0 ?
yes
?- s([light,replace],P).
P = 0 ?
yes
?- s([light],P).
P = 0.5 ?
yes
?- s([replace],P).
P = 0.5 ?
yes
*/
push.
light : 0.5 :- push.
replace :- \+ light.