3 lines
80 B
Perl
3 lines
80 B
Perl
|
vertical(line(point(X,Y),point(X,Z))).
|
||
|
|
horizontal(line(point(X,Y),point(Z,Y))).
|