;redcode-icpc ;name fairy lights ;author John Metcalf ;strategy oneshot ;assert CORESIZE==8000 gate dat 220, 200 dat 0, 0 dec equ 3500 bptr dat #1, #10 dptr spl #dec, 9 clear mov *bptr, >gate mov *bptr, >gate djn.f clear, }dptr for 6 dat 0, 0 rof scan sub.f #gate, gate sne *gate, @gate djn.f scan, *gate djn.f dptr, gate end scan+1