INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
#INCREASE X
#INCREASE X
#INCREASE X
#INCREASE X
#INCREASE X
#INCREASE X
#INCREASE X
INCREASE B
REPEAT Y TIMES ( REPEAT Y TIMES ( REPEAT Y TIMES ( INCREASE O ) ) )
REPEAT Y TIMES ( REPEAT Y TIMES ( INCREASE O ) )
REPEAT Y TIMES ( REPEAT Y TIMES ( INCREASE O ) )
REPEAT Y TIMES ( INCREASE O )
PRINT X
REPEAT O TIMES (
REPEAT B TIMES (
CLEAR P CLEAR Q INCREASE Q
REPEAT X TIMES (
REPEAT P TIMES ( CLEAR Q )
CLEAR P INCREASE P
)
REPEAT Q TIMES ( CLEAR P )
)
REPEAT P TIMES (
CLEAR N CLEAR M CLEAR B CLEAR C CLEAR A
INCREASE B
REPEAT X TIMES (
CLEAR C REPEAT A TIMES ( INCREASE C )
REPEAT B TIMES (
INCREASE N
CLEAR B
INCREASE A
)
REPEAT C TIMES (
CLEAR A
INCREASE B
INCREASE M
)
)
REPEAT B TIMES ( CLEAR X
REPEAT M TIMES ( INCREASE X )
)
#3x+1
REPEAT A TIMES (
CLEAR Y
REPEAT M TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE Y )
REPEAT X TIMES ( INCREASE Y )
INCREASE Y INCREASE Y PRINT Y
INCREASE X
)
PRINT X
)
)
# x/2 innovointia:
#REPEAT X TIMES (
# REPEAT A TIMES (
# INCREASE N INCREASE B CLEAR A )
# REPEAT B TIMES ( INCREASE A )
#)