fork download
  1. function Hailstones2(curr, count)
  2. count=count+1
  3. if curr==1: return count
  4. if curr%2==0 : return Hailstones2(curr/2, count)
  5. return Hailstones2((3*curr)+1, count)
  6. end
  7. function Hailstones(curr)
  8. return Hailstones2(curr, 0)
  9. end
  10.  
  11. print(Hailstones(1000))
Success #stdin #stdout 0.01s 6384KB
stdin
Standard input is empty
stdout
112