From news-rocq.inria.fr!jussieu.fr!fu-berlin.de!news.maxwell.syr.edu!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!news-peer.gip.net!news.gsl.net!gip.net!news.new-york.net!news.stormking.com!paul_virak_khuong@yahoo.com Mon Apr 20 13:45:39 1998 Article: 8874 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!fu-berlin.de!news.maxwell.syr.edu!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!news-peer.gip.net!news.gsl.net!gip.net!news.new-york.net!news.stormking.com!paul_virak_khuong@yahoo.com From: Paul-V Khuong Newsgroups: rec.games.corewar Subject: re:re:newbie Date: 18 Apr 1998 14:12:36 -0400 Organization: Storm King Ind. Inc. Lines: 158 Sender: server@news.stormking.com Distribution: world Message-ID: <19980418133851.23176.rocketmail@send1a.yahoomail.com> Reply-To: paul_virak_khuong@yahoo.com NNTP-Posting-Host: valhalla.stormking.com Mime-Version: 1.0 Originator: corewar-l@stormking.com Someone responded to my ask for help. Then, i've made the changes that he proposed to ameliorate Arsonic and it looked better on my benchmark. then, i've mailed it to pizza... Actually, it did really worst.It was something like 6 and after the changes, it did around 20. Additionnaly, i've made changes to 1-shot and it did like arsonic, really worst. here they are and, if someone could explain me what's happening. So, here's Arsonic 2.1 ;redcode-b verbose ;name arsonic 2.1 ;author P._V._K. ;assert 1 ORG start QB EQU (start+400) QS EQU 200 QD EQU 100 COUNT EQU 6 GAP EQU 15 REP EQU 6 dat 10*QS, 2*QS ; can get 21 values from this table table: dat 4*QS, 1*QS ; and can also use the initial value dat 23*QS, 3*QS ; of fnd qbomb: jmp -200,GAP qinc: dat GAP,-GAP tab: add.a table,table slow: add.ab @tab,fnd fast: add.b *tab,@slow which: sne.i datz,@fnd add.ab #QD,fnd mov.i qbomb,@fnd fnd: mov.i -GAP/2,@QB add.ba fnd,fnd mov.i qbomb,*fnd add.f qinc,fnd mov.i qbomb,@fnd djn.b -3,#REP jmp stb,}-300 start: seq.i QB+QS*0,QB+QS*0+QD jmp which,}QS*13 ; qinc+GAP seq.i QB+QS*1,QB+QS*1+QD jmp fast,}QB+QS*1+QD/2 seq.i QB+QS*2,QB+QS*2+QD jmp fast,{tab seq.i QB+QS*3,QB+QS*3+QD jmp fast,}tab seq.i QB+QS*13,QB+QS*13+QD jmp fast,{fast seq.i QB+QS*4,QB+QS*4+QD jmp >fast,}QB+QS*4+QD/2 seq.i QB+QS*5,QB+QS*5+QD jmp slow,}QB+QS*5+QD/2 seq.i QB+QS*6,QB+QS*6+QD jmp slow,{tab seq.i QB+QS*7,QB+QS*7+QD jmp slow,}tab seq.i QB+QS*10,QB+QS*10+QD jmp >fast,fast,>tab seq.i QB+QS*24,QB+QS*24+QD jmp slow,>tab seq.i QB+QS*17,QB+QS*17+QD jmp slow,{fast seq.i QB+QS*8,QB+QS*8+QD jmp tab seq.i QB+QS*28,QB+QS*28+QD jmp tab,>tab seq.i QB+QS*30,QB+QS*30+QD jmp tab,}tab jmp stb mb mov.i -1, >-1 sb spl #15, 2 jb jmp -15 stb add.ab #3511, stone mov.i mb, @stone mov.i sb, -100 cb dat.f 1, -5 dat.f 1, -5 datz end and here's one-shot 1.1: ;redcode-94x ;name 1 shot bomber ;author P._V._K. ;assert 1 dat.f 1,1 sc dat.f sb, 0 db dat.f sb+1, >11 start add.ab #2376, 1 jmz.f -1, 11 mov.i *sc, >sc djn.b -1, <-20 dat.f 0, 2 end start == And, as i always say: Basic ain't dead (mostly addressed to these morons who think that C is the only valuable language)... _________________________________________________________ DO YOU YAHOO!? Get your free @yahoo.com address at http://mail.yahoo.com