;redcode-94 ;name safeclear ;author Anders Ivner ;strategy quickscan the 80 worst starting positions of the paper ;strategy use two halves to survive a hit from the bomber ;strategy qscan assures safety from paper for 80*16 cycles ;strategy -> multipass coreclear (most efficient thing I found) ;strategy unfortunately it doesn't work as well as I hoped, ;strategy but I don't have time to improve it. :-( a equ (pt-2+10) empty equ (last+1) start spl q2 sne a-1809,a-3609 seq a-3751,a-5409 sub.f #find, find sne a-7491,a-5551 seq a-7209,a-7351 sub.f #find, find sne a-1009,a-3231 seq a-1291,a-6971 sub.f #find, find sne a-5031,a-3091 seq a-1151,a-2809 sub.f #find, find sne a-6132,a-1888 seq a-1872,a-2711 sub.f #find, find sne a-0209,a-4249 seq a-6831,a-4891 sub.f #find, find sne a-2951,a-4609 seq a-5644,a-5628 sub.f #find, find sne a-5612,a-6451 seq a-3688,a-3672 sub.f #find, find sne a-4511,a-1732 seq a-2571,a-0631 sub.f #find, find sne a-6691,a-4751 nop a-6409,a-1400 find sne *-2, @-2 nop }-1, >-1 add @find, fpt add find, fpt sne empty, @fpt mov.ab fpt, fpt add #12, fpt mov s1, -1 add @find2, fpt2 add find2, fpt2 sne empty, @fpt2 mov.ab fpt2, fpt2 add #12, fpt2 mov s1, pt mov @last, >pt last djn.b -2, {s1 end start