Heronian triangles: Difference between revisions
m
→{{header|Logtalk}}: Cleaned up the ordering predicates.
Ttmrichter (talk | contribs) m (→{{header|Logtalk}}: Got rid of an unnecessary layer of predicate calls.) |
Ttmrichter (talk | contribs) m (→{{header|Logtalk}}: Cleaned up the ordering predicates.) |
||
Line 3,098:
order_sides(<, (A1,_,_,_,_), (A2,_,_,_,_)) :- A1 < A2, !.
order_sides(<, (_,B1,_,_,_), (_,B2,_,_,_)) :- B1 < B2, !.
order_sides(<, (_,_,C1,_,_), (_,_,C2,_,_)) :- C1 < C2, !.
order_sides(>,
:- end_object.
| |||