sandbox/lpn/lines.pl

3 lines
80 B
Perl
Raw Normal View History

2018-01-16 17:46:44 +00:00
vertical(line(point(X,Y),point(X,Z))).
horizontal(line(point(X,Y),point(Z,Y))).