Lukujono

#257
 
PRINT X
 
INCREASE M
INCREASE M
 
# Research shows that the max step for collatz 1-1000 is 178 :)
 
REPEAT M TIMES ( REPEAT M TIMES ( INCREASE P INCREASE P INCREASE P INCREASE P  INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P INCREASE P  ) )
 
INCREASE O
REPEAT X TIMES ( REPEAT F TIMES ( CLEAR S INCREASE S CLEAR F ) REPEAT O TIMES ( CLEAR O INCREASE F) )
 
REPEAT P TIMES (
 REPEAT S TIMES (
 
 # Is even? and halve anyways
 CLEAR G
 CLEAR B
 CLEAR A
 REPEAT X TIMES (
   INCREASE B
   REPEAT A TIMES (
    CLEAR A
    CLEAR B
   )
   REPEAT B TIMES (
    INCREASE A
    INCREASE G
   )
  )
 CLEAR I
 INCREASE I
 # Was uneven???
 REPEAT B TIMES (
  CLEAR I
  REPEAT X TIMES ( REPEAT M TIMES ( INCREASE X ) )
  INCREASE X
 )
 
 REPEAT I TIMES (
  # 1 always comes after 2 so check if we should continue
  CLEAR S
  CLEAR X
  CLEAR F
  REPEAT G TIMES (
   INCREASE X
   REPEAT F TIMES ( CLEAR S INCREASE S CLEAR F )
   REPEAT I TIMES ( INCREASE F CLEAR I )
  )
  PRINT G
 )
 
 REPEAT B TIMES ( PRINT X ) # was x*3+1 so print
 
 )
)

Test 1 (public)

Verdict: WRONG ANSWER