Heronian triangles: Difference between revisions
→{{header|Logtalk}}: Fix missing uses/2 directive fir the between/3 predicate
(→{{header|Logtalk}}: Simplify code.) |
(→{{header|Logtalk}}: Fix missing uses/2 directive fir the between/3 predicate) |
||
Line 3,032:
:- object(test_triangle).
:- uses(integer, [between/3]).
:- uses(list, [length/2, member/2, sort/3, take/3]).
:- uses(logtalk, [print_message(information, heronian, Message) as print(Message)]).
Line 3,069:
print(@' A B C Area Perimeter'),
print(@'=== === === ======= ========='),
print(@'\n').
Line 3,076:
% collect all the primitive heronian triangles within the boundaries of the provided task
gather_primitive_heronians(Primitives) :-
t(A, B, C, Area, Perimeter),
(
| |||