Установить Steam
войти
|
язык
简体中文 (упрощенный китайский)
繁體中文 (традиционный китайский)
日本語 (японский)
한국어 (корейский)
ไทย (тайский)
Български (болгарский)
Čeština (чешский)
Dansk (датский)
Deutsch (немецкий)
English (английский)
Español - España (испанский — Испания)
Español - Latinoamérica (испанский — Латинская Америка)
Ελληνικά (греческий)
Français (французский)
Italiano (итальянский)
Bahasa Indonesia (индонезийский)
Magyar (венгерский)
Nederlands (нидерландский)
Norsk (норвежский)
Polski (польский)
Português (португальский — Португалия)
Português-Brasil (португальский — Бразилия)
Română (румынский)
Suomi (финский)
Svenska (шведский)
Türkçe (турецкий)
Tiếng Việt (вьетнамский)
Українська (украинский)
Сообщить о проблеме с переводом
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