41 lines
351 B
Plaintext
41 lines
351 B
Plaintext
set i 31
|
|
set a 1
|
|
mul p 17
|
|
jgz p p
|
|
mul a 2
|
|
add i -1
|
|
jgz i -2
|
|
add a -1
|
|
set i 127
|
|
set p 316
|
|
mul p 8505
|
|
mod p a
|
|
mul p 129749
|
|
add p 12345
|
|
mod p a
|
|
set b p
|
|
mod b 10000
|
|
snd b
|
|
add i -1
|
|
jgz i -9
|
|
jgz a 3
|
|
rcv b
|
|
jgz b -1
|
|
set f 0
|
|
set i 126
|
|
rcv a
|
|
rcv b
|
|
set p a
|
|
mul p -1
|
|
add p b
|
|
jgz p 4
|
|
snd a
|
|
set a b
|
|
jgz 1 3
|
|
snd b
|
|
set f 1
|
|
add i -1
|
|
jgz i -11
|
|
snd a
|
|
jgz f -16
|
|
jgz a -19 |