Data update

Task/Call-a-function/Ada/call-a-function-1.ada

@@ -1 +0,0 @@
-S: String := Ada.Text_IO.Get_Line;

Task/Call-a-function/Ada/call-a-function-2.ada

@@ -1,5 +0,0 @@
-function F(X: Integer; Y: Integer := 0) return Integer; -- Y is optional
-...
-A : Integer := F(12);
-B : Integer := F(12, 0); -- the same as A
-C : Integer := F(12, 1); -- something different

Task/Call-a-function/Ada/call-a-function-3.ada

@@ -1,12 +0,0 @@
-type Integer_Array is array (Positive range <>) of Integer;
-function Sum(A: Integer_Array) return Integer is
-   S: Integer := 0;
-begin
-   for I in A'Range loop
-      S := S + A(I);
-   end loop;
-   return S;
-end Sum;
-...
-A := Sum((1,2,3));     -- A = 6
-B := Sum((1,2,3,4));   -- B = 10

Task/Call-a-function/Ada/call-a-function-4.ada

@@ -1,9 +0,0 @@
-function H (Int: Integer;
-            Fun: not null access function (X: Integer; Y: Integer)
-              return Integer);
-           return Integer;
-
-...
-
-X := H(A, F'Access) -- assuming X and A are Integers, and F is a function
-                     -- taking two Integers and returning an Integer.

Task/Call-a-function/Ada/call-a-function-5.ada

@@ -1,3 +0,0 @@
-Positional := H(A, F'Access);
-Named      := H(Int => A, Fun => F'Access);
-Mixed      := H(A, Fun=>F'Access);