1package Opt42 is 2 3 type Index_Type is range 1 .. 7; 4 type Row_Type is array (Index_Type) of Float; 5 type Array_Type is array (Index_Type) of Row_Type; 6 7 function "*" (Left, Right : in Array_Type) return Array_Type; 8 9end Opt42; 10
1package Opt42 is 2 3 type Index_Type is range 1 .. 7; 4 type Row_Type is array (Index_Type) of Float; 5 type Array_Type is array (Index_Type) of Row_Type; 6 7 function "*" (Left, Right : in Array_Type) return Array_Type; 8 9end Opt42; 10