First-class functions/Use numbers analogously: Difference between revisions
Content added Content deleted
(Added Ada (and Removed {{omit From|Ada}})) |
|||
| Line 21: | Line 21: | ||
<small>To paraphrase the task description: Do what was done before, but with numbers rather than functions</small> |
<small>To paraphrase the task description: Do what was done before, but with numbers rather than functions</small> |
||
=={{header|Ada}}== |
|||
<lang Ada>with Ada.Text_IO; |
|||
procedure Firstclass is |
|||
generic |
|||
n1, n2 : Float; |
|||
function Multiplier (m : Float) return Float; |
|||
function Multiplier (m : Float) return Float is begin |
|||
return n1 * n2 * m; |
|||
end Multiplier; |
|||
num, inv : array (1 .. 3) of Float; |
|||
begin |
|||
num := (2.0, 4.0, 6.0); |
|||
inv := (1.0/2.0, 1.0/4.0, 1.0/6.0); |
|||
for i in num'Range loop |
|||
declare |
|||
function new_function is new Multiplier (num (i), inv (i)); |
|||
begin |
|||
Ada.Text_IO.Put_Line (new_function (0.5)'Img); |
|||
end; |
|||
end loop; |
|||
end Firstclass;</lang> |
|||
{{out}} |
|||
<pre>5.00000E-01 |
|||
5.00000E-01 |
|||
5.00000E-01</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||
| Line 891: | Line 918: | ||
</pre> |
</pre> |
||
{{omit From|Ada}} |
|||
{{omit From|C}} |
{{omit From|C}} |
||
{{omit From|AWK}} |
{{omit From|AWK}} |
||