From news-rocq.inria.fr!jussieu.fr!oleane!news-raspail.gip.net!news-peer.gip.net!news.gsl.net!gip.net!cyclone.news.idirect.com!news1.bellglobal.com!dragon.sk.sympatico.ca!news Thu Aug  6 13:23:23 1998
Article: 9461 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!oleane!news-raspail.gip.net!news-peer.gip.net!news.gsl.net!gip.net!cyclone.news.idirect.com!news1.bellglobal.com!dragon.sk.sympatico.ca!news
From: c.stubbs@sk.sympatico.ca (Chris Stubbs)
Newsgroups: rec.games.corewar
Subject: Re: Evolving warriors
Date: Wed, 05 Aug 1998 18:41:27 GMT
Organization: SaskTel - Sympatico
Lines: 56
Message-ID: <35c8a32d.16662000@news.sk.sympatico.ca>
References: <35c7bd32.27346374@news.sk.sympatico.ca> <35c7d561.392336510@news.nc5.infi.net>
NNTP-Posting-Host: msjwsk02d0103015.sk.sympatico.ca
X-Newsreader: Forte Free Agent 1.11/32.235

wtnewton@filter.nc5.infi.net (Terry) wrote:

>c.stubbs@sk.sympatico.ca (Chris Stubbs) wrote:
>
>>I've been trying to evolve CoreWar warriors and was wondering if
>>anybody else was trying to do it.
>
>I occasionally do an overnight run in case anything is trying
>to get out... ya never know! Might be a paper in there...
>(haven't seen any)
>
>>If anyone's interested in looking at some of the generated warriors, I
>>could post them.
>
>A few maybe (you can email them to me if you don't post)
Here's one:
;redcode-94nop
;name  2
;author Chris Stubbs
;strategy I don't know
;assert CORESIZE == 8000
       SPL.B  $     1, <   400
       SPL.B  @     0, }  3620
       SPL.B  $     1, <   400
       SPL.B  @     0, }  3620
       MOV.I  }    -1, >    -1
       MOV.I  $     8, >   113
       SPL.B  @     0, }  1270
       MOV.I  }    -1, >    -1
       MOV.I  $     3, >    -6
       SPL.B  $     1, <   400
       SPL.B  @     0, }  3620
       MOV.I  }    -1, >    -1
       MOV.I  $     8, >   113
       SPL.B  $     1, <   400
       SPL.B  @     0, }  3620
       MOV.I  }    -1, >    -1
       SPL.B  @     0, }  1270
       DJN.B  $     0, <     2
       JMP.B  $    -2, $     0
       MOV.I  }    -1, >    -1
       MOV.I  $     8, >   113
       SPL.B  @     0, }  1270


>What are you using to evolve them?

I've tried two ways: All at once, and one at a time against a common
opponent.
Then it picks thre top three, mates them, and starts over.

I'll e-mail my programs to you. I don't think people on the newsgroup
would like if I posted a binary.
--
Chris Stubbs (c.stubbs AT sk.sympatico.ca)