sandbox/lpn/lines.pl

3 lines
80 B
Prolog

vertical(line(point(X,Y),point(X,Z))).
horizontal(line(point(X,Y),point(Z,Y))).