Heronian triangles: Difference between revisions
m
→{{header|Logtalk}}
Ttmrichter (talk | contribs) (→{{header|Logtalk}}: Refactored the ordering code.) |
Ttmrichter (talk | contribs) |
||
Line 3,092:
).
order_by(_, =, T, T) :- !.
order_by(area, <, t(_,_,_,Area1,_), t(_,_,_,Area2,_)) :-
order_by(area, >, t(_,_,_,Area1,_), t(_,_,_,Area2,_)) :-
order_by(perimeter, <, t(_,_,_,_,Perimeter1), t(_,_,_,_,Perimeter2)) :-
order_by(perimeter, >, t(_,_,_,_,Perimeter1), t(_,_,_,_,Perimeter2)) :-
order_by(_, <, t(A1,_,_,_,_), t(A2,_,_,_,_)) :- A1 < A2, !.
order_by(_, <, t(_,B1,_,_,_), t(_,B2,_,_,_)) :- B1 < B2, !.
order_by(_, <, t(_,_,C1,_,_), t(_,_,C2,_,_)) :- C1 < C2, !.
order_by(_, >, _, _).
:- end_object.
|