Instal Steam
login
|
bahasa
简体中文 (Tionghoa Sederhana)
繁體中文 (Tionghoa Tradisional)
日本語 (Bahasa Jepang)
한국어 (Bahasa Korea)
ไทย (Bahasa Thai)
Български (Bahasa Bulgaria)
Čeština (Bahasa Ceko)
Dansk (Bahasa Denmark)
Deutsch (Bahasa Jerman)
English (Bahasa Inggris)
Español - España (Bahasa Spanyol - Spanyol)
Español - Latinoamérica (Bahasa Spanyol - Amerika Latin)
Ελληνικά (Bahasa Yunani)
Français (Bahasa Prancis)
Italiano (Bahasa Italia)
Magyar (Bahasa Hungaria)
Nederlands (Bahasa Belanda)
Norsk (Bahasa Norwegia)
Polski (Bahasa Polandia)
Português (Portugis - Portugal)
Português-Brasil (Bahasa Portugis-Brasil)
Română (Bahasa Rumania)
Русский (Bahasa Rusia)
Suomi (Bahasa Finlandia)
Svenska (Bahasa Swedia)
Türkçe (Bahasa Turki)
Tiếng Việt (Bahasa Vietnam)
Українська (Bahasa Ukraina)
Laporkan kesalahan penerjemahan
My solution with one EXA (no SWIZ) - 579/45/4
MAKE
@REP 4
COPY 0 F
@END
LINK 800
MARK CODE
COPY #OUTP X
SEEK -9999
@REP 4
COPY F #PASS
@END
@REP 4
TEST #OUTP = X
TJMP DIGIT@{0,1}
@END
WIPE
LINK 800
GRAB 267
LINK -1
LINK -1
HALT
@REP 4
MARK DIGIT@{0,1}
COPY @{-4,1} X
JUMP INCREASE
@END
MARK INCREASE
SEEK X
COPY F X
SEEK -1
ADDI X 1 F
JUMP CODE
⣿⣿⣿⣿⠀⠀⠸⠿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⠃⠀⣠⣾⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⡿⠃⠀⢰⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⠃⠀⠀⣾⣿⣿⣿⣿⣿⣦⠀⠈⠻⣿⣿⣿⣿
⣿⠀⠀⠀⣿⣿⣿⠟⠉⠉⠉⢃⣤⠀⠈⢿⣿⣿
⣿⠀⠀⠀⢸⣿⡟⠀⠀⠀⠀⢹⣿⣧⠀⠀⠙⣿
⣿⡆⠀⠀⠈⠻⡅⠀⠀⠀⠀⣸⣿⠿⠇⠀⠀⢸
⣿⣿⠀⠀⠀⠀⠀⠀⠀⠀⠔⠛⠁⠀⠀⠀⣠⣿
⣿⣿⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⢀⣴⣿⣿
⣿⣿⠃⠀⠀⠀⠀⠀⠀⠀⠀⠀⣠⣾⣿⣿⣿⣿
⣿⣿⡇⠀⠀⠀⠀⠀⠀⠀⠀⣠⣿⣿⣿⣿⣿⣿
⣿⣿⡇⠀⠀⠀⠀⠀⠀⠀⢰⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⠀⠀⠀⠀⠀⠀⠀⢸⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⠀⠀⠀⠀⠀⠀⠀⠘⣿⣿⣿⣿⣿⣿⣿
⣿⣿⠁⠀⠀⠀⠀⠀⠀⠀⠀⢹⣿⣿⣿⣿⣿⣿
⣿⠟⠀⠀⠀⠀⠀⠀⠀⠀⠀⢠⣿⣿⣿⣿⣿⣿
⡟⠁⠀⠀⠀⠀⠀⠀⠀⠀⠀⢸⣿⣿⣿⣿⣿⣿
The
COPY F #PASS
COPY F #PASS
COPY F #PASS
COPY F #PASS
on ENTER is not needed, I didn't thought that the last try have to be correct, therefore, it will be opened :)
Here is my solution:
LINK 800
MAKE
;0: ADD VALUE
COPY 1000 F
;1: RESULT POINTER
COPY 2 F
;2: SWIZ POINTER
COPY 4 F
;3: WAIT WORD
COPY #OUTP F
MARK LOOP
SWIZ X 4 #PASS
SWIZ X 3 #PASS
SWIZ X 2 #PASS
SWIZ X 1 #PASS
COPY #OUTP F
NOOP
COPY #OUTP F
NOOP
COPY #OUTP F
NOOP
COPY #OUTP F
NOOP
SEEK -9999
SEEK 1
SEEK F
COPY F T
SEEK -9999
SEEK 3
TEST F = T
FJMP CORRECT
SEEK -9999
ADDI X F X
SEEK 3
JUMP LOOP
MARK RET
SEEK -9999
SEEK 1
TEST F = 6
TJMP ENTER
SEEK 2
JUMP LOOP
MARK CORRECT
SEEK -9999
SEEK 2
COPY F T
SEEK 9999
SWIZ X T F
SEEK -9999
DIVI F 10 T
SEEK -1
COPY T F
ADDI F 1 T
SEEK -1
COPY T F
SUBI F 1 T
SEEK -1
COPY T F
JUMP RET
MARK ENTER
SEEK 9999
SEEK -4
COPY F #PASS
COPY F #PASS
COPY F #PASS
COPY F #PASS
WIPE
LINK 800
GRAB 267
LINK -1
LINK -1
HALT
// Output: CHK CHK CHK CHK CHK CHK WAI WAI
// ERROR: Comment appears to contain incorrect number.
405/32/5
LINK 800
MARK BRUTE
SWIZ X 4 #PASS
SWIZ X 3 #PASS
SWIZ X 2 #PASS
SWIZ X 1 #PASS
REPL CHECK
COPY X M
LINK 800
GRAB 267
LINK -1
KILL
LINK -1
MARK CHECK
COPY #OUTP X
TEST X = #OUTP
FJMP WRG2
TEST X = #OUTP
FJMP WRG3
TEST X = #OUTP
FJMP WRG4
ADDI 1000 M X
JUMP BRUTE
MARK WRG2
ADDI 100 M X
JUMP BRUTE
MARK WRG3
ADDI 10 M X
JUMP BRUTE
MARK WRG4
ADDI 1 M X
JUMP BRUTE