You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
390 B
Racket
42 lines
390 B
Racket
7 years ago
|
#lang reader "main2.rkt" ★★ ; 5969
|
||
|
|
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 464
|
||
|
|
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
|