Nainstalovat Steam
přihlásit se
|
jazyk
简体中文 (Zjednodušená čínština)
繁體中文 (Tradiční čínština)
日本語 (Japonština)
한국어 (Korejština)
ไทย (Thajština)
български (Bulharština)
Dansk (Dánština)
Deutsch (Němčina)
English (Angličtina)
Español-España (Evropská španělština)
Español-Latinoamérica (Latin. španělština)
Ελληνικά (Řečtina)
Français (Francouzština)
Italiano (Italština)
Bahasa Indonesia (Indonéština)
Magyar (Maďarština)
Nederlands (Nizozemština)
Norsk (Norština)
Polski (Polština)
Português (Evropská portugalština)
Português-Brasil (Brazilská portugalština)
Română (Rumunština)
Русский (Ruština)
Suomi (Finština)
Svenska (Švédština)
Türkçe (Turečtina)
Tiếng Việt (Vietnamština)
Українська (Ukrajinština)
Nahlásit problém s překladem
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