12 lines
244 B
Lua
12 lines
244 B
Lua
|
#!/usr/bin/env luajit
|
||
|
|
local lib=require"hailstone"
|
||
|
|
local longest,longest_i=0,0
|
||
|
|
for i=1,1e5 do
|
||
|
|
local len=#lib.hailstone(i)
|
||
|
|
if len>longest then
|
||
|
|
longest_i=i
|
||
|
|
longest=len
|
||
|
|
end
|
||
|
|
end
|
||
|
|
print("Longest sequence at "..longest_i..", length "..longest)
|