PRINT X
INCREASE N INCREASE N INCREASE N INCREASE N INCREASE N
REPEAT N TIMES ( INCREASE N INCREASE N INCREASE N INCREASE N )
REPEAT N TIMES ( INCREASE N INCREASE N INCREASE N INCREASE N )
INCREASE B
INCREASE I # IF X == 1
CLEAR Y
INCREASE Y
REPEAT X TIMES (
REPEAT Y TIMES ( # Y = X < 2
INCREASE J
REPEAT I TIMES (
CLEAR J
)
REPEAT J TIMES (
CLEAR Y
)
CLEAR I
CLEAR J
)
)
REPEAT Y TIMES (
CLEAR B
)
CLEAR Y # ENDIF X == 1
REPEAT B TIMES (
REPEAT N TIMES ( # MASTER LOOP
REPEAT B TIMES ( # IF break
INCREASE C
REPEAT X TIMES ( # DIV start
REPEAT C TIMES (
CLEAR X
CLEAR C
)
INCREASE J
REPEAT I TIMES (
CLEAR I
INCREASE X
CLEAR O # Mark as odd
CLEAR J
)
REPEAT J TIMES (
INCREASE I
INCREASE O # Mark as even
CLEAR J
)
) # DIV end
CLEAR I # Outputs:
# - X floor(X/2)
# - O if odd
INCREASE E # IF odd
REPEAT O TIMES (
REPEAT X TIMES (
INCREASE X
INCREASE X
)
INCREASE X
INCREASE X
REPEAT X TIMES (
INCREASE T
INCREASE T
)
PRINT T
CLEAR T
CLEAR E
CLEAR Y
)
REPEAT E TIMES ( # ELSE
INCREASE I # IF X == 1
CLEAR Y
INCREASE Y
REPEAT X TIMES ( # Y = X < 2
REPEAT Y TIMES (
INCREASE J
REPEAT I TIMES (
CLEAR J
)
REPEAT J TIMES (
CLEAR Y
)
CLEAR I
CLEAR J
)
)
REPEAT Y TIMES (
CLEAR B
)
CLEAR Y # ENDIF X == 1
CLEAR E
) # ENDIF odd
CLEAR O
PRINT X
) # ENDIF break
) # END MASTER LOOP
)