1;redcode-94nop 2;name Purifier 3;author Lukasz Grabun 4;strategy Mini Q^4 -> Stone/Paper 5;strategy credits for J. Metcalf 6;version from the hill, qscan made by John Metcalf. 7;assert 1 8 ORG START 9 SPL.B $ 1, } -2553 10 SPL.B $ 1, } -3462 11 SPL.B $ 1, } 3629 12 SPL.B @ 0, { 3009 13 MOV.I } -1, > -1 14 SPL.B @ 0, < 2794 15 MOV.I } -1, > -1 16 MOV.I $ 3, > -765 17 MOV.I { -3, < 1 18 JMP.B @ 0, > 2930 19 DAT.F > -2666, > 2667 20 DAT.F $ 0, $ 0 21 DAT.F $ 0, $ 0 22 DAT.F $ 0, $ 0 23 DAT.F $ 0, $ 0 24 DAT.F $ 0, $ 0 25 DAT.F $ 0, $ 0 26 DAT.F $ 0, $ 0 27 DAT.F $ 0, $ 0 28 DAT.F $ 0, $ 0 29 DAT.F $ 0, $ 0 30 SPL.B # 0, # 0 31 MOV.I $ 3, @ 2 32 ADD.AB # 598, $ 1 33 DJN.F $ -2, { 595 34 DAT.F > 4, > 1 35 MOV.I $ -5, $ -262 36 SPL.B $ 2, $ 0 37 SPL.B $ 2, $ -258 38 SPL.B $ 1, $ -3 39 MOV.I < -1, < -2 40 DJN.B @ -5, # 5 41 JMP.B $ -32, $ 0 42 DAT.F $ 0, $ 0 43 DAT.F $ 0, $ 0 44 DAT.F $ 0, $ 0 45 DAT.F $ 0, $ 0 46 DAT.F $ 0, $ 0 47 DAT.F $ 0, $ 0 48 DAT.F $ 0, $ 0 49 DAT.F $ 0, $ 0 50 DAT.F $ 0, $ 0 51 DAT.F $ 0, $ 0 52 DAT.F $ 0, $ 0 53 DAT.F $ 0, $ 0 54 DAT.F $ 0, $ 0 55 DAT.F $ 0, $ 0 56 DAT.F $ 0, $ 0 57 DAT.F $ 0, $ 0 58 DAT.F $ 0, $ 0 59 DAT.F $ 0, $ 0 60 DAT.F $ 0, $ 0 61 DAT.F $ 0, $ 0 62 DAT.F $ 0, $ 0 63 DAT.F $ 0, $ 0 64 DAT.F $ 0, $ 0 65 DAT.F $ 0, $ 0 66 DAT.F $ 0, $ 0 67 DAT.F $ 0, $ 0 68 DAT.F $ 0, $ 0 69 DAT.F $ 0, $ 0 70 DAT.F $ 0, $ 0 71 DAT.F $ 0, $ 0 72 DAT.F $ 0, $ 0 73 DAT.F $ 0, $ 0 74 DAT.F $ 0, $ 0 75 DAT.F $ 0, $ 0 76 DAT.F $ 0, $ 0 77 DAT.F $ 0, $ 0 78 DAT.F $ 0, $ 0 79 DAT.F $ 0, $ 0 80 DAT.F $ 0, $ 0 81 DAT.F { 87, $ 3999 82 DAT.F $ 1000, $ 3090 83 DAT.F $ 1000, $ 2181 84START SNE.I $ 1569, $ -2802 85 SEQ.I < -74, $ -816 86 JMP.B $ 15, } 17 87 SNE.I $ 2006, $ -1456 88 SEQ.I < -7, $ 531 89 JMP.B $ 12, } 12 90 SNE.I $ 1095, $ -2367 91 SEQ.I < -9, $ -380 92 DJN.A $ 9, { 9 93 SNE.I $ 184, $ -3278 94 SEQ.I < -11, $ -1291 95 DJN.A $ 6, * 0 96 SNE.I $ 3373, $ 820 97 SEQ.I < -88, $ 2806 98 JMP.B $ 3, { 5 99 SNE.I $ 2462, $ -1000 100 JMZ.F $ -65, < -90 101 MUL.B * 2, $ 4 102 SNE.I * -19, @ 3 103 ADD.B $ -93, $ 2 104 MOV.I $ -23, @ 1 105 MOV.I $ -24, } -1988 106 SUB.AB # 7, @ -4 107 DJN.B $ -3, # 16 108 DJN.F $ -73, # 0 109 110