Heronian triangles: Difference between revisions

m
→‎{{header|Logtalk}}: Corrected a change that should have been made earlier but wasn't.
m (→‎{{header|Logtalk}}: Corrected a change that should have been made earlier but wasn't.)
Line 3,047:
print('There are ~w primitive Heronian triangles with sides under 200.~n'+[L]),
 
sort(order_by_areaorder_by(area), Primitives, AreaSorted),
take(10, AreaSorted, Area10),
print(@'The first ten found, ordered by area, are:\n'),
display_each_element(Area10),
 
sort(order_by_perimeterorder_by(perimeter), Primitives, PerimeterSorted),
take(10, PerimeterSorted, Perimeter10),
print(@'The first ten found, ordered by perimeter, are:\n'),
34

edits