# Oletetaan, että X on valmiiksi annettu
# Käytetään apumuuttujaa Y
CLEAR Y
REPEAT X TIMES (
# Tämä on vain alustava silmukka, korvataan logiikalla
)
# Collatz logiikka REPEAT-komentoja ja muuttujia hyödyntäen
# Koska tämä pseudo-kieli ei tue if-else, käytämme seuraavaa ideaa:
# 1. Tulostetaan X aina
PRINT X
# 2. Luodaan silmukka REPEATillä X:llä niin kauan, kun X != 1
# (tässä tulkki tukee vain REPEAT, joten käytetään Y muuttujaa laskurina)
CLEAR Y
REPEAT 10000 TIMES ( # isompi luku varmuudeksi
# Jos X == 1, lopetetaan
CLEAR Z
REPEAT X TIMES (INCREASE Z) # Z = X
# Jos Z == 1, lopetetaan
REPEAT Z TIMES (
INCREASE Y
)
# Logiikka parillinen / pariton
# Jos Z parillinen, X = X/2
# Jos Z pariton, X = 3*X +1
)
