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
REPEAT N TIMES ( # MASTER LOOP
REPEAT B TIMES ( # IF break
REPEAT X TIMES ( # DIV start
INCREASE J
REPEAT I TIMES (
CLEAR I
CLEAR O # Mark as odd
CLEAR J
)
REPEAT J TIMES (
INCREASE I
INCREASE Y
INCREASE O # Mark as even
CLEAR J
)
) # DIV end
# Outputs:
# - Y ceil(X/2)
# - O if odd
INCREASE E # IF odd
REPEAT O TIMES (
REPEAT Y TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE T INCREASE T )
PRINT T
CLEAR T
CLEAR E
CLEAR Y
)
REPEAT E TIMES ( # ELSE
CLEAR X
REPEAT Y TIMES (
INCREASE X
)
INCREASE I # IF X == 1
CLEAR Y
INCREASE Y
REPEAT X TIMES (
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
