Heronian triangles: Difference between revisions

Content added Content deleted
m (→‎{{header|Logtalk}}: Cleaned up the ordering predicates.)
m (→‎{{header|Logtalk}}: Cleaned up some redundancy.)
Line 3,053: Line 3,053:
display_each_element(Perimeter10),
display_each_element(Perimeter10),


bagof(Element, A^B^C^E^(list::member((A,B,C,210.0,E), Primitives), Element = (A,B,C,210.0,E)), Area210),
bagof(Element, A^B^C^E^(list::member(Element, Primitives), Element = (A,B,C,210.0,E)), Area210),
logtalk::print_message(information, heronian,
logtalk::print_message(information, heronian,
@'The list of those with an area of 210 is:\n'),
@'The list of those with an area of 210 is:\n'),