94x Hall of Fame

[John Metcalf]

The 94x hill is the most active at the moment so I've compiled a Hall of Fame. If you know any of the missing strategies / exact ages please let me know so I can fill the gaps.

Thanks,

John

The Corewar '94x Hall of Fame
-----------------------------

Last updated: Friday 03 March 2017

Pos Name Author Age Strategy
1 Evol Cap 4 X John Wilkinson 327 Stone/imp
2 Evolve X v4.0 John Wilkinson 274 Qscan -> Paper/imp
3 Controlled Aggression Ian Oversby 266 * P-warrior
4 Black Moods Ian Oversby 262 * P-warrior
5 Venom v0.2b Christian Schmidt 243
6 Ogre Christian Schmidt 214 * P-warrior
7 KAT v5 Dave Hillis 198 * P-warrior
8 Pagan John K W 161+ Scanner
9 Denial David Moore 161 Stone/imp
10 Black Box v1.1 JKW 154 P-warrior
11 Katafutr Michal Janeczek 149 P-warrior
12 Olivia X Ben Ford 147 * Qscan -> Stone/imp
13 BigBoy Robert Macrae 136+ Qscan -> Bomber
14 S.E.T.I. 4-X JKW 134+ Scanner
15 Damage Inflicted Robert Macrae 134 P-warrior
16 Kin John Metcalf 126
17 Purple v0.1 Christian Schmidt 125
18 Rosebud Beppe 122+ Stone/imp
19 Fire and Ice II David Moore 119 P-warrior
20 Trefoil F 13 Steve Gunnell 119
21 Dr. Gate X Franz 116 Bomber
22 Memories Beppe Bezzi 114+ Scanner
23 Lithium X 8 John K Wilkinson 102+ Bomber
24 Greetings From Asbury JKW 100
25 Stepping Stone 94x Kurt Franke 97+ Vampire
26 Glenstorm John Metcalf 93 Paper/stone
27 Big I.F.F.S. Dave Hillis 88 P-warrior
28 Fire Master Xv1 JS Pulido 85 Scanner
29 Tornado 2.0 x Beppe Bezzi 78+ Bomber
30 Eliminator X Zul Nadzri 78 * P-warrior
31 The X Machine Zul Nadzri 77 * P-warrior
32 test CS 76+
33 Exsnail Philip Thorne 72 Vampire
34 Frontwards v2 Steven Morrell 66+ Oneshot
35 Giant Hazy Test 13 Steve Gunnell 66 Scanner
36 xd100 test David Houston 63 * Qscan -> Stone/imp
37 Hector 2 Kurt Franke 54 Qscan -> Paper
38 Fatamorgana X Zul Nadzri 53 * P-warrior
39 Nice Try M R Bremer 52+
40 Watcher Kurt Franke 52
41 Derision M R Bremer 52 Oneshot
42 Tsunami v0.1 Ian Oversby 49+ Oneshot

I don't know the exact age of the warriors below but have found an
upper and lower limit.

Memories (161-171), BigBoy (136-154), S.E.T.I. 4-X (134-136),
Rosebud (122-123), Memories (114-116), Lithium X 8 (102-119),
Stepping Stone 94x (97-114), Tornado 2.0 x (78-81), test (76-86),
Frontwards v2 (66-68), Nice Try (52-58), Tsunami v0.1 (49-53)

[Stephen Gunnell]

Can't help much with the missing information but here is Trefoil F 13:

;redcode-94x
;name Trefoil F 13
;author Steve Gunnell
;strategy P-space
;assert CORESIZE=55440

STEP1 equ 18172
STEP2 equ 2138
STEP3 equ 46460

SSTEP equ 51893
SOFF equ 1836

DSTEP equ 3095
DTIME equ 5597
DOFF equ 35305

GAP equ 7

;;;;;;;;;;;;;;;;;;;;
; ;
; paper ;
; ;
;;;;;;;;;;;;;;;;;;;;

paper spl 1, <-402
spl 1, <-401
spl 1, <-400
tpap spl @0 ,STEP1
mov }-1, >-1
spl @0 ,STEP2
mov }-1, >-1
hpap spl @0 ,STEP3
mov }-1, >-1
mov.i bpap ,>hpap
bpap dat.f <5334 ,<2667

for GAP
dat 0,0
rof

;;;;;;;;;;;;;;;;;;;;
; ;
; scanner ;
; ;
;;;;;;;;;;;;;;;;;;;;


bptr equ head-3

head slt #SSTEP ,#tail+5
mov.a head ,bptr
trash mov tail ,}bptr
add.a #SSTEP ,@hptr
jmz.f trash ,*head
hptr jmn.a @hptr ,head
jmp @hptr ,}trash
tail spl #0 ,{0
spl #0, {0

for GAP
dat 0,0
rof

;;;;;;;;;;;;;;;;;;;;
; ;
; stone ;
; ;
;;;;;;;;;;;;;;;;;;;;

gate1 equ (init-7-dist)
pat equ DSTEP
dist equ 3

dwarf mov.i bmbr, init-dist
init SPL.B #0, <stone-pat
stone SPL.B #pat, <-pat
loop MOV.I {0+pat, hit-pat
ADD.F stone, loop
hit DJN.F loop, <stone-pat
MOV.I init-dist, >gate1
DJN.F -1, {gate1
bmbr dat.f #1, #17

for GAP
dat 0,0
rof

;;;;;;;;;;;;;;;;;;;;
; ;
; pspace & boot ;
; ;
;;;;;;;;;;;;;;;;;;;;

PKEY equ 129

table nop 2 , w0
nop 0 , w2
nop 1 , w1
nop 2 , w0
nop 1 , w1

for 5
dat 0,0
rof

w0 dat DOFF, #dwarf-last+length
w1 dat SOFF, #head-last+length
w2 dat 0 , #paper-last

length equ 9
states equ 5

dat 0, table-state
tlink dat 0, table-state
dat 0, table-state+1
dat 0, table-state+2

for GAP
dat 0,0
rof

think ldp.a #0, tlink
load ldp.a #PKEY, state
mod.a #states, state
add.ba *tlink, state
store stp.ab *state, #PKEY
state mov.f @0, last
jmz.a @last, last

for length
mov.i <last, {last
rof

last djn.f 0, 0 ; this line will be modified

end think