[88] Ice Dragon

[John Metcalf]

Ice Dragon is a 15-line hydra which launches 16 anti-imp clears. It's
super slow, taking around 180 cycles to boot. I added a qscan and imp
launcher, and it scores reasonably well on the hill.

;redcode
;name Ice Dragon
;author John Metcalf
;strategy a tangled mess - launch a 16-headed hydra and imps
;assert CORESIZE==8000

qfirst equ (qp2+2*qstep)
qdist equ qfirst+125
qstep equ 250

qi equ 7
qr equ 7

qbomb dat <qi/2-qi*qr, <qi*qr-qi/2

qa equ qstep*16
qb equ qstep*5+2
qc equ qstep*10
qd equ qstep*2
qe equ qstep*1

qgo cmp qdist+qc, qfirst+qc
jmp qfast, <qa
cmp qdist+qe+qd, qfirst+qe+qd
qp1 jmp <qfast, <qc
qp2 cmp qdist, qfirst
qp3 jmp qskip, <qe

cmp qdist+qb, qfirst+qb
q1 djn qfast, #qp1

cmp qdist+qd+qc, qfirst+qd+qc
jmp qslow, <qfirst+qd+qc+4
cmp qdist+qd+qb, qfirst+qd+qb
x1 jmp qslow, <q1
cmp qdist+qc+qc, qfirst+qc+qc
q2 djn qslow, #qp2
cmp qdist+qd, qfirst+qd
jmp qslow, <qfast
cmp qdist+qa, qfirst+qa
jmp q1, <q1

cmp qdist+qa+qd, qfirst+qa+qd
jmp x1, <q1
cmp qdist+qc+qb, qfirst+qc+qb
jmp q2, <q1
cmp qdist+qe+qd+qc,qfirst+qe+qd+qc
jmp qslower, <qfirst+qe+qd+qc+4
cmp qdist+qe+qd+qb,qfirst+qe+qd+qb
jmp qslower, <q1
cmp qdist+qe+qc+qc,qfirst+qe+qc+qc
jmp qslower, <q2
cmp qdist+qd+qd+qc,qfirst+qd+qd+qc
q3 djn qslower, #qp3
cmp qdist+qe+qc, qfirst+qe+qc
jmp <qfast, <q2
cmp qdist+qd+qd, qfirst+qd+qd
jmp <qfast, <q3
cmp qdist+qd+qd+qb,qfirst+qd+qd+qb
slt <q3, <q1

jmz warr, qdist+qe+qd+qc+10

qslower add @q3, @qslow
qslow add @q2, qkil
qfast add @q1, @qslow

qskip cmp <qdist+qstep+50, @qkil
jmp qloop, <1234

add #qdist-qfirst, qkil
qloop mov qbomb, @qkil
qkil mov <qfirst+qstep+50, <qfirst
sub #qi, @qloop
djn qloop, #qr+2

ny equ 16
step equ (8000/ny)

warr spl 1, <warr+650 ; 16 parallel processes
spl 1, <warr+1150
spl 1, <warr+1650
spl 1, <warr+2150

spl z, <warr+2650
spl y, <warr+3150

mov c3, @x
djn <x, <warr+3650
c1 spl 0, <2
y mov 0, <1
x jmn <x, warr+410
c3 djn -2, #-22
z spl w, <warr+4150
mov c1, <x
w add #step+2, @y

istep equ 2667

spl istep+1, <warr+4650
mov -1, istep
mov 0, istep

end qgo