Proper divisors: Difference between revisions

Content added Content deleted
Line 216: Line 216:
function Arr(P: Positive) return Single_Pos_Arr is ((others => P));
function Arr(P: Positive) return Single_Pos_Arr is ((others => P));
-- A: Pos_Arr(1..1) := (1 => P);
-- begin
-- return A;
-- end Arr;
package Divisor_List is new Generic_Divisors
package Divisor_List is new Generic_Divisors