A-M baby

Task/Identity-matrix/Ada/identity-matrix-1.ada

@@ -0,0 +1,4 @@
+--  As prototyped in the Generic_Real_Arrays specification:
+--  function Unit_Matrix (Order : Positive; First_1, First_2 : Integer := 1) return Real_Matrix;
+-- For the task:
+mat : Real_Matrix := Unit_Matrix(5);

Task/Identity-matrix/Ada/identity-matrix-2.ada

@@ -0,0 +1,4 @@
+type Matrix is array(Positive Range <>, Positive Range <>) of Integer;
+mat : Matrix(1..5,1..5) := (others => (others => 0));
+--  then after the declarative section:
+for i in mat'Range(1) loop mat(i,i) := 1; end loop;