# pääloop kunnes x=1
PRINT X
INCREASE R
# -- tästä ei puhuta
INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W
REPEAT W TIMES ( REPEAT W TIMES ( INCREASE W ) )
INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W
REPEAT W TIMES (
REPEAT R TIMES (
CLEAR P
# A = 1 , niin pariton | A = 0 , niin parillinen
CLEAR A
CLEAR Z
REPEAT X TIMES (
INCREASE Z
REPEAT A TIMES (
CLEAR Z
)
CLEAR A
REPEAT Z TIMES ( INCREASE A )
)
INCREASE P
# A = 1 , niin pariton <------------------------
CLEAR Z
INCREASE Z
REPEAT A TIMES (
# Ykkös checker--------------------------------
CLEAR A
REPEAT X TIMES (
REPEAT Z TIMES (
REPEAT A TIMES ( CLEAR G CLEAR Z )
REPEAT Z TIMES (
INCREASE G
INCREASE A
)
)
INCREASE X INCREASE X
)
INCREASE X
REPEAT G TIMES ( CLEAR R )
CLEAR P
)
CLEAR A
CLEAR C
CLEAR Z
# A = 0 , niin parillinen. P = 0 jos parillinen tehty <------------------------
REPEAT P TIMES (
REPEAT X TIMES (
INCREASE Z
REPEAT A TIMES ( CLEAR Z )
CLEAR A
REPEAT Z TIMES (
INCREASE A
INCREASE C
)
)
CLEAR X
)
REPEAT C TIMES ( INCREASE X )
)
REPEAT R TIMES ( PRINT X )
)
