Anonymous user
Higher-order functions: Difference between revisions
m
→{{header|ALGOL 68}}
m (Fixed some compiler links, added header template. (Didn't know we had some of these pages left.)) |
|||
Line 75:
Put_Line(Integer'Image(Int_Ptr.All));
end Subprogram_As_Argument_2;
=={{header|ALGOL 68}}==
PROC first = (PROC(LONG REAL)LONG REAL f) LONG REAL:
(
f(1) + 2
);
PROC second = (LONG REAL x)LONG REAL:
(
x/2
);
main: (
printf(($xg(5,2)l$,first(second)))
)
Output:
+2.50
=={{header|C}}==
| |||