17 lines
263 B
Text
17 lines
263 B
Text
|
sequenceList = []
|
||
|
|
hailstone(27, sequenceList)
|
||
|
|
put sequenceList
|
||
|
|
-- [27, 82, 41, 124, ... , 8, 4, 2, 1]
|
||
|
|
|
||
|
|
n = 0
|
||
|
|
maxLen = 0
|
||
|
|
repeat with i = 1 to 99999
|
||
|
|
len = hailstone(i)
|
||
|
|
if len>maxLen then
|
||
|
|
n = i
|
||
|
|
maxLen = len
|
||
|
|
end if
|
||
|
|
end repeat
|
||
|
|
put n, maxLen
|
||
|
|
-- 77031 351
|