From ee31io@ee.surrey.ac.uk Tue Sep 10 11:28:51 1996 Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by tobago.inria.fr (8.6.10/8.6.6) with ESMTP id LAA11419 for ; Tue, 10 Sep 1996 11:28:50 +0200 Received: from ainur.ee.surrey.ac.uk (ainur.ee.surrey.ac.uk [131.227.50.25]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id LAA28025 for ; Tue, 10 Sep 1996 11:28:46 +0200 (MET DST) Received: from kira.ee.surrey.ac.uk by ainur.ee.surrey.ac.uk with smtp (Smail3.1.29.1 #4) id m0v0P7P-000OiyC; Tue, 10 Sep 96 10:28 BST Received: by kira.ee.surrey.ac.uk (Smail3.1.29.1 #4) id m0v0P7O-000AbwC; Tue, 10 Sep 96 10:28 BST Message-Id: From: ee31io@ee.surrey.ac.uk (I M Oversby) Subject: Pulp To: Damien.Doligez@inria.fr Date: Tue, 10 Sep 1996 10:28:29 +0100 (BST) X-Mailer: ELM [version 2.4 PL24] MIME-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Status: RO Here is the code for Pulp. My paper that doesn't do so well on its own, but works very well as part of Flimsy. There is nothing particularly innovative about it. I chose the destination constants to give good spread and then chose pos1 and pos2 fairly randomly. pos3 clears old copies from the moment the JMP of the old copy has finished executing. It clears from about the third or fourth instruction to beyond the end, the philosophy being that if a SPL carpet was placed on the paper, it would also be beyond the end and it is best to terminate all useless processes in the paper. I did try to optimise this paper using the procedure from an early Core Warrior. However, the optimised version performed much worse. This version at least ties or beats most modern bombers and does quite well against imps. It seems to be a little more fragile than other papers, losing more to imp/stones than I would like. It works, but doesn't enter the hill on its own. I haven't managed to write a _good_ paper yet :-( Ian ;redcode-94 test ;name Pulp ;author Ian Oversby ;strategy Paper without QScan ;assert 1 dest1 equ 1400 ; For Pulp v0.2 dest2 equ 5460 dest3 equ 725 pos1 equ 930 pos2 equ 3359 pos3 equ 1009 ; clear old copies org paper ;;------------------------------------------------------------ paper SPL.B 1, <-300 MOV.I -1, 0 MOV.I -1, 0 SPL.B 1, {-300 silk SPL.B @0, >dest1 MOV.I }-1, >-1 MOV.I bomb, >pos1 silk2 SPL.B @0, >dest2 MOV.I }-1, >-1 MOV.I bomb, >pos2 ; linear bombing MOV.I bomb, }pos3 ; anti-vamp MOV.I {silk2, dest3 bomb DAT.F <2667, <5334 ;;------------------------------------------------------------ end