# 357327 commands with 1000 as starting number
# Used to detect when to stop loop
INCREASE L
# Create a big number (128) to loop many times (number 871 takes the most steps: 178 (but the odd step in our loop computes 2 values so we dont need to loop 178 times))
INCREASE Q INCREASE Q
REPEAT Q TIMES ( INCREASE Q INCREASE Q INCREASE Q )
REPEAT Q TIMES ( INCREASE Q INCREASE Q INCREASE Q )
REPEAT Q TIMES ( INCREASE Q INCREASE Q INCREASE Q )
# Print the initial value
PRINT X
# Stop if X is 1 initially
REPEAT X TIMES (
CLEAR L
REPEAT F TIMES (
INCREASE L
CLEAR F
)
INCREASE F
)
# Start the main loop
REPEAT Q TIMES (
REPEAT L TIMES (
# Clear variables before re-use
CLEAR T CLEAR V
# These needs to be 1 for the odd-even loop to work
INCREASE T
INCREASE O
# Check if X is odd or even, and save the halved value of X in V
REPEAT X TIMES (
INCREASE B
REPEAT T TIMES (
CLEAR B
CLEAR T
)
REPEAT B TIMES (
INCREASE V
INCREASE T
)
)
# This only runs if X was even because in that case T is 1 instead of 0
REPEAT T TIMES (
# If X was even, set X to the halved value stored in V
REPEAT T TIMES (
CLEAR X
REPEAT V TIMES (
INCREASE X
)
)
# Print the resulting value
PRINT X
# If X was even, dont run the odd-loop
CLEAR O
)
# Run only if even-loop wasn't ran (so X was odd)
REPEAT O TIMES (
# Multiply X by 3 and add 1
REPEAT X TIMES (
INCREASE X INCREASE X
)
INCREASE X
# Print the resulting value
PRINT X
# We dont need to check if X is 1 because it can never be 1 in this situation
# Now we "skip" one step and directly compute the next value
# Multiply X by 3 and add 2
CLEAR X
REPEAT V TIMES (
INCREASE X INCREASE X INCREASE X
)
INCREASE X INCREASE X
# Print the resulting value
PRINT X
# Clear the odd-even flag
CLEAR O
)
# Stop if X is 1 (only do the check if X was even to save computations))
REPEAT T TIMES (
CLEAR F
REPEAT X TIMES (
CLEAR L
REPEAT F TIMES (
INCREASE L
CLEAR F
)
INCREASE F
)
)
)
)