;redcode-tiny ;author inversed ;name Stackpile ;strategy Quickscan -> paper. End silk decrement causes ;strategy multiple copies to stack on top of each other. ;assert CORESIZE == 800 stepX equ 98 stepY equ 66 djs equ 714 qx equ 48 qy equ 651 qa1 equ 150 ;((qx - 1) * (qy - 1) % 800) qb1 equ 250 ;(qa1 * (qa1 + 1) % 800) qa2 equ 350 ;(qb1 * (qb1 + 1) % 800) qb2 equ 450 ;(qa2 * (qa2 + 1) % 800) qa3 equ 197 ;((qx - 1) * qy % 800) qb3 equ 606 ;(qa3 * (qa3 + 1) % 800) qb4 equ 752 ;(qx * qy + 1) * (qx * qy % 800) qa5 equ 699 ;((qx + 1) * qy % 800) qb5 equ 500 ;(qa5 * (qa5 + 1) % 800) org qscan qscan sne qf + qa1 , qf + qb1 seq qf + qa2 , qf + qb2 djn.f @ qlo + 1 , @ qlo + 1 sne qf + qa3 , qf + qb3 seq } qf , qf + qb4 jmp @ qlo + 1 , { qf sne qf + qa5 , qf + qb5 jmz.f start , < qf qf mul.x # qx , # qy jmz.f @ qlo + 1 , > qf qlo mov }-djs , > qf mov } qlo , { qf seq { qf , > qf djn.f qlo , > qf start spl 1 , { djs spl 1 , { djs silkX spl @ 0 , < stepX mov } silkX , > silkX mov { silkX , < silkY silkY djn.f @ 0 , < stepY + 1