Blame view

code/asp/plp/coins.plp 128 Bytes
3e0f9b8a   Francisco Coelho   back to work?
1
2
3
4
5
6
7
{ heads(C) } :- C=1..2.
:~ not heads(C), C=1..2. [0@0,0,(C,)]

two_heads :- heads(1), heads(2).
&query(heads(1)).

:- two_heads.