# Assign big num for loop (113)
INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L
REPEAT L TIMES (
INCREASE L INCREASE L INCREASE L INCREASE L
)
REPEAT L TIMES (
INCREASE L INCREASE L INCREASE L
)
INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L INCREASE L
# PRINT L
INCREASE B
# I: bool - is iteration ongoing (hasn't reached 1 and should still iterate)
# check: do we start iterating (is x > 1) --> I
REPEAT X TIMES (
# if K is true: set I to true
REPEAT K TIMES (
CLEAR I INCREASE I
CLEAR K
)
# set K to true
INCREASE K
)
REPEAT L TIMES (
REPEAT I TIMES (
# Print number of the series
PRINT X
# calculate halved X to H and find out if X is even in B
CLEAR H # halved value
CLEAR Q
CLEAR D
CLEAR E #INCREASE E
REPEAT X TIMES (
CLEAR B
# increment accumulation H if iteration is even
REPEAT A TIMES (
INCREASE H
#CLEAR A
INCREASE B
# quarter stuff
CLEAR E
REPEAT D TIMES (
INCREASE Q
INCREASE E
)
INCREASE D REPEAT E TIMES ( CLEAR D )
)
INCREASE A REPEAT B TIMES ( CLEAR A )
)
# if X is even: move H value to X
REPEAT B TIMES (
CLEAR A
CLEAR I
CLEAR K
# H is even
REPEAT E TIMES (
#PRINT L # even even
PRINT H
CLEAR X REPEAT Q TIMES (
INCREASE X
# check if H > 1
# if K is true: set I to true
REPEAT K TIMES (
CLEAR I
INCREASE I
CLEAR K
)
# set K to true
INCREASE K
)
)
# H is uneven
REPEAT D TIMES (
#PRINT L # even uneven
#PRINT L
CLEAR X REPEAT H TIMES (
INCREASE X
# check if H > 1
# if K is true: set I to true
REPEAT K TIMES (
CLEAR I
INCREASE I
CLEAR K
)
# set K to true
INCREASE K
)
)
)
# if x not even
REPEAT A TIMES (
# setup for next iter
CLEAR A
#INCREASE B
# perform X += 2 * X + 1 and print X
REPEAT X TIMES (
INCREASE X
INCREASE X
)
INCREASE X
PRINT X
# H is even
REPEAT E TIMES (
#PRINT L # uneven even
#PRINT L
#PRINT L
#PRINT A PRINT B
# Next val is 3 * H + 2
REPEAT H TIMES ( INCREASE H INCREASE H )
INCREASE H INCREASE H
PRINT H
CLEAR A
CLEAR I
# Next val is 3 * Q + 1
CLEAR X REPEAT Q TIMES (
INCREASE X INCREASE X INCREASE X
# check if Q > 0
CLEAR I INCREASE I
)
INCREASE X
)
# H is uneven
REPEAT D TIMES (
#PRINT L # uneven uneven
#PRINT L
#PRINT L
#PRINT L
# X is now guaranteed to be even and the next num is 3 * H + 2
CLEAR X REPEAT H TIMES ( INCREASE X INCREASE X INCREASE X )
INCREASE X INCREASE X
)
)
)
)
INCREASE S
PRINT S