PRINT X
INCREASE F
INCREASE F
INCREASE R INCREASE R INCREASE R INCREASE R INCREASE R
INCREASE R INCREASE R INCREASE R INCREASE R INCREASE R
INCREASE R
REPEAT R TIMES ( REPEAT F TIMES ( REPEAT F TIMES ( REPEAT F TIMES ( REPEAT F TIMES ( INCREASE K ) ) ) ) )
INCREASE K INCREASE K INCREASE K
#LUO LUVUN 179
REPEAT K TIMES (
REPEAT X TIMES ( CLEAR B REPEAT A TIMES ( CLEAR A INCREASE B ) INCREASE A )
CLEAR A
# B= 0 TAI =SUUREMPI ,MUTTA KUITENKIN B=X-1
REPEAT B TIMES (
CLEAR B
INCREASE B
)
REPEAT B TIMES (
CLEAR B
INCREASE A
REPEAT X TIMES (
REPEAT A TIMES ( CLEAR A INCREASE C INCREASE E )
REPEAT B TIMES ( CLEAR B INCREASE A INCREASE J CLEAR E )
REPEAT C TIMES ( CLEAR C INCREASE B )
)
CLEAR A
CLEAR B
CLEAR C
#luodaan luvut x/2=J
#E ON 0 JOS X ON PARILLINEN, 1 JOS X ON PARITON
INCREASE M
REPEAT E TIMES (
REPEAT X TIMES ( REPEAT F TIMES ( INCREASE X ) )
INCREASE X
PRINT X
CLEAR M
CLEAR E
)
REPEAT M TIMES (
CLEAR X
REPEAT J TIMES ( INCREASE X )
PRINT X
)
CLEAR M
CLEAR J
)
)
