Anonymous user
Higher-order functions: Difference between revisions
no edit summary
(→{{header|TXR}}: Added.) |
No edit summary |
||
Line 96:
Put_Line(Integer'Image(Int_Ptr.All));
end Subprogram_As_Argument_2;</lang>
=={{header|Aime}}==
<lang aime>integer
average(integer p, integer q)
{
return (p + q) / 2;
}
void
out(integer p, integer q, integer (*f) (integer, integer))
{
o_integer(f(p, q));
o_byte('\n');
}
integer
main(void)
{
# display the minimum, the maximum and the average of 117 and 319
out(117, 319, min);
out(117, 319, max);
out(117, 319, average);
return 0;
}</lang>
=={{header|ALGOL 68}}==
| |||