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/trigger.cpl
2009-02-16 12:23:29 +00:00

14 lines
191 B
Plaintext

/*
?- s([death],P).
P = 0.305555555555556 ?
yes
?-
*/
death : 1/6 :- pull_trigger(left_gun).
death : 1/6 :- pull_trigger(right_gun).
pull_trigger(left_gun).
pull_trigger(right_gun).