RosettaCodeData/Task/Hailstone-sequence/Ada/hailstone-sequence-2.ada
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
171 B
Ada

package Hailstones is
type Integer_Sequence is array(Positive range <>) of Integer;
function Create_Sequence (N : Positive) return Integer_Sequence;
end Hailstones;