Instalează Steam
conectare
|
limbă
简体中文 (chineză simplificată)
繁體中文 (chineză tradițională)
日本語 (japoneză)
한국어 (coreeană)
ไทย (thailandeză)
български (bulgară)
Čeština (cehă)
Dansk (daneză)
Deutsch (germană)
English (engleză)
Español - España (spaniolă - Spania)
Español - Latinoamérica (spaniolă - America Latină)
Ελληνικά (greacă)
Français (franceză)
Italiano (italiană)
Bahasa Indonesia (indoneziană)
Magyar (maghiară)
Nederlands (neerlandeză)
Norsk (norvegiană)
Polski (poloneză)
Português (portugheză - Portugalia)
Português - Brasil (portugheză - Brazilia)
Русский (rusă)
Suomi (finlandeză)
Svenska (suedeză)
Türkçe (turcă)
Tiếng Việt (vietnameză)
Українська (ucraineană)
Raportează o problemă de traducere









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