#871
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
# A = 179 is the length of the Maximum collatz sequence (X=871)
# To beat:
# 5894250
# 5239377
# 5239198
# 5238841
# 5238663
INCREASE T
REPEAT A TIMES ( # Basically a WHILE TRUE
# Check to terminate
CLEAR Y CLEAR M CLEAR E
INCREASE E
REPEAT X TIMES (
INCREASE D
REPEAT M TIMES (
CLEAR D
CLEAR M
INCREASE Y
CLEAR E
) # 11>00, 01>01
REPEAT D TIMES ( INCREASE M CLEAR D ) # 01>10
)
REPEAT E TIMES ( CLEAR T )
# Y := HALF X
# M := MOD2 X
# D := 0
# E := ISZERO HALF X
# T := NOT ISZERO HALF X
REPEAT T TIMES ( # If we do not terminate
PRINT X
INCREASE P
REPEAT M TIMES ( # If X is odd, Multiply by 3 and add 1, and then divide by two.
CLEAR Z
REPEAT X TIMES ( INCREASE Z )
REPEAT X TIMES ( INCREASE Z )
REPEAT X TIMES ( INCREASE Z )
INCREASE Z
PRINT Z
# Z = 3X+1
REPEAT Y TIMES ( INCREASE X )
INCREASE X
# X = 3/2X + 1
CLEAR P
)
REPEAT P TIMES ( # Otherwise X is even. Divide by 2.
CLEAR X
REPEAT Y TIMES ( INCREASE X )
CLEAR P
)
)
)
PRINT X
