From news-rocq.inria.fr!jussieu.fr!pasteur.fr!univ-lyon1.fr!news.apfel.de!news.maxwell.syr.edu!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!ais.net!uunet!in1.uu.net!128.42.5.19!rice!not-for-mail Tue Apr 8 13:35:46 1997 Article: 7443 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!pasteur.fr!univ-lyon1.fr!news.apfel.de!news.maxwell.syr.edu!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!ais.net!uunet!in1.uu.net!128.42.5.19!rice!not-for-mail From: kafka Newsgroups: rec.games.corewar Subject: unrequited love Date: Mon, 07 Apr 1997 17:44:33 -0500 Organization: Rice University, Houston, Texas Lines: 86 Message-ID: <334978D1.6AF6@rice.edu> NNTP-Posting-Host: long-eared.owlnet.rice.edu Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Mailer: Mozilla 3.01 (X11; I; SunOS 5.5.1 sun4d) well, I check my mail and find that my warrior has been pushed off. Damn. Well, here it is, for those who may still be interested. It is perhaps the most unoriginal warrior ever to be king of the hill (which it was for several weeks) I just took Beppe's paper1 and wrote a fortran program to test its performance against some "good" warriors (at the time, it was Thermite II, Twister, Blur 2, Yogi Bear and an Imp-Stone, I think). The program's key feature was that it generated random constants (dest0,1,2 and range) for the paper. It kicked out some pretty good values, I would say. The resulting paper placed in the top ten on its own, and when I stuck a q^2 scan on it from one of the issues pf CW (not probe's. an earlier one) it gained a firm grasp on the lead. Up until the last month or so, it was still doing quite well, but then everyone decided they wanted to make scanners and my poor paper was just road kill. Ah well. I guess even love must die. Maybe I'll steal another warrior soon. ;) kafka ;redcode-94 ;assert CORESIZE==8000 ;name unrequited love ;author kafka ;strategy well, it's a departure from my normal title theme, but.... ;strategy that's why I'm back doing corewar org start dest0 equ 7889 dest1 equ 3602 dest2 equ 4095 range equ 1253 paper spl 1, <-300 spl 1, <-400 spl 1, <-500 silk spl @0, {dest0 mov.i }-1,>-1 silk1 spl @0, -1 mov bomba,}range mov {silk1,dest2 bomba dat <2667, <5334 datz i for 12 dat 0,0 rof offset EQU (start+1000) COUNT EQU 6 start: N FOR COUNT scan&N: seq.i offset+400*N,offset+400*N+100 jmp kill&N+1 seq.i offset+400*N+200,offset+400*N+300 jmp kill&N ROF jmp paper GAP EQU 15 REP EQU 6 datb: dat GAP,-GAP dat200: dat 200,200 dat100: dat 100,100 N FOR COUNT kill&N: add.f dat200,pos&N sne.i datz,*pos&N add.f dat100,pos&N hit&N: mov.i datb,*pos&N pos&N: mov.i offset+400*N,offset+400*N+GAP/2 add.f datb,pos&N djn.b hit&N,#REP jmp paper ROF