Higher-order functions: Difference between revisions
Content deleted Content added
→[[JavaScript]]: Added Pascal |
|||
Line 2: | Line 2: | ||
Pass a function ''as an argument'' to another function. |
Pass a function ''as an argument'' to another function. |
||
==[[Ada]]== |
|||
[[Category:Ada]] |
|||
with Ada.Text_Io; use Ada.Text_Io; |
|||
procedure Subprogram_As_Argument is |
|||
type Proc_Access is access procedure; |
|||
procedure Second is |
|||
begin |
|||
Put_Line("Second Procedure"); |
|||
end Second; |
|||
procedure First(Proc : Proc_Access) is |
|||
begin |
|||
Proc.all; |
|||
end First; |
|||
begin |
|||
First(Second'Access); |
|||
end Subprogram_As_Argument; |
|||
==[[C]]== |
==[[C]]== |