A-M baby

Task/Function-definition/Ada/function-definition-1.ada

@@ -0,0 +1 @@
+function Multiply (A, B : Float) return Float;

Task/Function-definition/Ada/function-definition-2.ada

@@ -0,0 +1,4 @@
+function Multiply (A, B : Float) return Float is
+begin
+   return A * B;
+end Multiply;

Task/Function-definition/Ada/function-definition-3.ada

@@ -0,0 +1 @@
+function Multiply(A, B: Float) return Float is (A * B);

Task/Function-definition/Ada/function-definition-4.ada

@@ -0,0 +1,3 @@
+generic
+   type Number is digits <>;
+function Multiply (A, B : Number) return Number;

Task/Function-definition/Ada/function-definition-5.ada

@@ -0,0 +1,4 @@
+function Multiply (A, B : Number) return Number is
+begin
+   return A * B;
+end Multiply;

Task/Function-definition/Ada/function-definition-6.ada

@@ -0,0 +1,7 @@
+with Multiply;
+...
+function Multiply_Integer is new Multiply(Number => Integer);
+use Multiply_Integer; -- If you must
+
+type My_Integer is Range -100..100;
+function Multiply_My_Integer is new Multiply(My_Integer);