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.
31 lines
257 B
Racket
31 lines
257 B
Racket
8 years ago
|
#lang reader "lang.rkt"
|
||
|
|
cpy a d
|
||
|
|
cpy 14 c
|
||
|
|
cpy 182 b
|
||
|
|
inc d
|
||
|
|
dec b
|
||
|
|
jnz b -2
|
||
|
|
dec c
|
||
|
|
jnz c -5
|
||
|
|
cpy d a
|
||
|
|
jnz 0 0
|
||
|
|
cpy a b
|
||
|
|
cpy 0 a
|
||
|
|
cpy 2 c
|
||
|
|
jnz b 2
|
||
|
|
jnz 1 6
|
||
|
|
dec b
|
||
|
|
dec c
|
||
|
|
jnz c -4
|
||
|
|
inc a
|
||
|
|
jnz 1 -7
|
||
|
|
cpy 2 b
|
||
|
|
jnz c 2
|
||
|
|
jnz 1 4
|
||
|
|
dec b
|
||
|
|
dec c
|
||
|
|
jnz 1 -4
|
||
|
|
jnz 0 0
|
||
|
|
out b
|
||
|
|
jnz a -19
|
||
|
|
jnz 1 -21
|