Francisco Coelho / zugzwang

Blame view

code/asp/onabove.lp 76 Bytes
Edit Raw Normal View History
808facfe   Francisco Coelho   Main text adapted... 
1
2
3
4
5
 
on(a,b).
on(b,c).

above(X,Y) :- on(X,Y).
above(X,Y) :- on(X,Z), above(Z,Y).