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.
27 lines
218 B
Racket
27 lines
218 B
Racket
8 years ago
|
#lang reader "lang.rkt"
|
||
|
|
cpy a b
|
||
|
|
dec b
|
||
|
|
cpy a d
|
||
|
|
cpy 0 a
|
||
|
|
cpy b c
|
||
|
|
inc a
|
||
|
|
dec c
|
||
|
|
jnz c -2
|
||
|
|
dec d
|
||
|
|
jnz d -5
|
||
|
|
dec b
|
||
|
|
cpy b c
|
||
|
|
cpy c d
|
||
|
|
dec d
|
||
|
|
inc c
|
||
|
|
jnz d -2
|
||
|
|
tgl c
|
||
|
|
cpy -16 c
|
||
|
|
jnz 1 c
|
||
|
|
cpy 70 c
|
||
|
|
jnz 87 d
|
||
|
|
inc a
|
||
|
|
inc d
|
||
|
|
jnz d -2
|
||
|
|
inc c
|
||
|
|
jnz c -5
|