RosettaCodeData/Task/Higher-order-functions/Aime/higher-order-functions.aime
2023-07-01 13:44:08 -04:00

25 lines
364 B
Text

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;
}