# Build B=10 and C=8
CLEAR B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
CLEAR C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
# A = 180 using 100 + 80
CLEAR A
REPEAT B TIMES (
REPEAT B TIMES (
INCREASE A
)
)
REPEAT B TIMES (
REPEAT C TIMES (
INCREASE A
)
)
PRINT X
# L = [X >= 2]
CLEAR B
CLEAR C
REPEAT X TIMES (
CLEAR D
INCREASE D
REPEAT C TIMES (
CLEAR D
)
CLEAR C
REPEAT D TIMES (
INCREASE C
)
CLEAR D
INCREASE D
REPEAT C TIMES (
CLEAR D
)
REPEAT D TIMES (
INCREASE B
)
)
CLEAR L
INCREASE L
CLEAR D
INCREASE D
REPEAT B TIMES (
CLEAR D
)
REPEAT D TIMES (
CLEAR L
)
REPEAT A TIMES (
REPEAT L TIMES (
# B = X//2, C = X%2
CLEAR B
CLEAR C
REPEAT X TIMES (
CLEAR D
INCREASE D
REPEAT C TIMES (
CLEAR D
)
CLEAR C
REPEAT D TIMES (
INCREASE C
)
CLEAR D
INCREASE D
REPEAT C TIMES (
CLEAR D
)
REPEAT D TIMES (
INCREASE B
)
)
# E = 1 - C (1 если чётное)
CLEAR E
INCREASE E
REPEAT C TIMES (
CLEAR E
)
# S = 3X + 1
CLEAR S
INCREASE S
REPEAT X TIMES (
INCREASE S
)
REPEAT X TIMES (
INCREASE S
)
REPEAT X TIMES (
INCREASE S
)
# X := (чётное ? B : S)
CLEAR X
REPEAT E TIMES (
REPEAT B TIMES (
INCREASE X
)
)
REPEAT C TIMES (
REPEAT S TIMES (
INCREASE X
)
)
PRINT X
# Обновить L = [X >= 2] для следующей итерации
CLEAR B
CLEAR C
REPEAT X TIMES (
CLEAR D
INCREASE D
REPEAT C TIMES (
CLEAR D
)
CLEAR C
REPEAT D TIMES (
INCREASE C
)
CLEAR D
INCREASE D
REPEAT C TIMES (
CLEAR D
)
REPEAT D TIMES (
INCREASE B
)
)
CLEAR L
INCREASE L
CLEAR D
INCREASE D
REPEAT B TIMES (
CLEAR D
)
REPEAT D TIMES (
CLEAR L
)
)
)