16 lines
263 B
Text
16 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
|