mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
14 lines
285 B
Ada
14 lines
285 B
Ada
package body Loop_Optimization8_Pkg2 is
|
|
|
|
function Length (Set : T) return Natural is
|
|
begin
|
|
return Set.Length;
|
|
end Length;
|
|
|
|
function Index (Set : T; Position : Natural) return Integer is
|
|
begin
|
|
return Set.Elements (Position);
|
|
end Index;
|
|
|
|
end Loop_Optimization8_Pkg2;
|