INCREASE X
INCREASE X
INCREASE X
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
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 (
CLEAR Q
CLEAR P
REPEAT X TIMES (
REPEAT P TIMES ( CLEAR Q INCREASE Q )
CLEAR P INCREASE P
)
REPEAT Q 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
)
)
#n-m optimoitavissa
CLEAR S REPEAT N TIMES ( INCREASE S )
REPEAT M TIMES (
CLEAR W REPEAT S TIMES ( INCREASE W )
CLEAR K
CLEAR S
REPEAT W TIMES (
REPEAT K TIMES (
INCREASE S
)
CLEAR K
INCREASE K
)
)
CLEAR L
INCREASE L
REPEAT S TIMES ( CLEAR L )
REPEAT L TIMES ( CLEAR X REPEAT N TIMES ( INCREASE X )
PRINT X )
#3x+1
REPEAT S TIMES (
CLEAR Y
REPEAT X TIMES ( INCREASE Y )
REPEAT Y TIMES ( INCREASE X )
REPEAT Y TIMES ( INCREASE X )
INCREASE X
PRINT X
)
)
)