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