9 lines
260 B
Text
9 lines
260 B
Text
longest := 0; n := 0;
|
|
for i from 1 to 100000 do
|
|
len := numelems(hailstone(i));
|
|
if len > longest then
|
|
longest := len;
|
|
n := i;
|
|
end if;
|
|
od:
|
|
printf("The longest Hailstone sequence in the first 100k is n=%d, with %d terms\n",n,longest);
|