;redcode
;name DualScanV1
;author Skybuck Flying
;strategy Dual Scan
;strategy Bomber
;version 1
;date 19 february 2008
;Inspired by talk about q scans on corewar newsgroup
Initialization
mov Location1, Bomb
jmp Compare
WarriorBegin
WarriorLength equ WarriorEnd - WarriorBegin
Location1
Location2
dat $WarriorEnd, $(WarriorEnd + CORESIZE /2) - WarriorLength
Compare sne }Location1, >Location2
jmp Compare
mov Bomb, {Location1
mov Bomb, <Location2
nop }Location1, >Location2
jmp Compare
Bomb dat $0, $0
WarriorEnd
|
