Lukujono

#parittomalle luvulle A -> A
#REPEAT A TIMES ( INCREASE A INCREASE A ) INCREASE A

#parilliselle luvulle A -> T  C = 1 muut 0  I palauttaa A%2
#REPEAT A TIMES ( REPEAT I TIMES ( INCREASE T ) REPEAT C TIMES ( CLEAR U CLEAR C INCREASE I ) REPEAT U TIMES ( INCREASE C CLEAR I ) INCREASE U )






REPEAT X TIMES ( INCREASE J INCREASE J INCREASE J REPEAT J TIMES ( INCREASE J INCREASE J REPEAT J TIMES ( INCREASE J INCREASE J ) ) )
INCREASE N
REPEAT J TIMES (
REPEAT N TIMES (
PRINT X
INCREASE M
REPEAT X TIMES ( REPEAT I TIMES ( INCREASE T ) REPEAT C TIMES ( CLEAR U CLEAR C INCREASE I ) REPEAT U TIMES ( INCREASE C CLEAR I ) INCREASE U )
REPEAT I TIMES ( CLEAR M REPEAT X TIMES ( INCREASE X INCREASE X ) INCREASE X )  # JOS PARITON X3+1
REPEAT M TIMES ( CLEAR X REPEAT T TIMES ( INCREASE X ) )  #MUUTETAAN PUOLIKKAAKSI JOS PARILLINEN
CLEAR I CLEAR T CLEAR C CLEAR U CLEAR M  ) #TYHJENNETÄÄN MUUTTUJAT

CLEAR Q
INCREASE P
REPEAT X TIMES ( REPEAT Q TIMES ( CLEAR P ) INCREASE Q )                 # EHTO 1 TARKISTUKSEEN
REPEAT P TIMES ( CLEAR N )

)
PRINT X

Test 1 (public)

Verdict: ACCEPTED