Yellowstone sequence: Difference between revisions
m
Ada: Optimize cursor out
(Ada version) |
m (Ada: Optimize cursor out) |
||
Line 193:
else GCD (Right, Left mod Right));
function Next return Integer is
begin
N_2 := N_1;
Line 212 ⟶ 210:
end if;
Seq.Insert (N_0);
while Seq.Contains (Min) loop
Min := Min + 1;
end loop;
|