From: amorgan@csd-d-3.Stanford.EDU (Crunchy Frog)
Subject: A program for Antti
Originator: amorgan@csd-d-3.Stanford.EDU
Organization: Computer Science Department, Stanford University
Date: Wed, 30 Sep 1992 00:17:22 GMT

Okay, I promised Antti that I would write a bit of code to
demonstrate Dawkins sentence evolution, and here it is.
It is written in fairly vanilla C (I think) and compiled
with gcc 2.1.  It generated the sentence "if we took the
bones out it would not be crunchy" in 164 generations ("methinks
it is like a weasel" took about 50).

There are a few options you can change (in a user-unfriendly
fashion) to alter the number of children, mutation rate,
and a few other things.

Antti?

C Frog

--------snip->8----------------cut here ---------------------
begin 644 evolve.c.Z
M'YV0(]*X&<.F#IDR('C,H4,FS1L7:'PH"#BPX,&$"\FP22,&HD2*! TBY-$F
M#!TT'A4H>*%" 0@5()*8 9'G31T09-ZX.4$'!)HP=A">3#.'!8@1!\T(1)C$
M"94O38)@ 4'G#0@Q".>\:8-0!)LP<LZ4$0'"39TV6.6X5/%")4B+(^?DF?-B
M8YLT=.:D7-GR)0@J5M>4*0.'*AJB(,S(V7JUC, S(,*XR>,3[$$YAB6#P%MV
M,)DY5*UBC0E"3IF%<M*,H;/6<%8ZJ=U KAJ9#1L0;-[<*8-Y3)@Y"-F4H4.'
M=]&R5N6B?<-&[]JV$Y,N!1$5RQ0J4I@4<0(BA@P<"A::5 UBS$_,*DK2,0^B
M!P@1:6;N#OUFC>NK.D^#L-F3\QV;;)"!7$^CC2%''0.AD8<(.RA@'E@@ %<&
M&5/ ]M@678#0WGL:=NCAAR"&*.*())9HXHDHIJABAPRJQ%)K5*"!D%EH\;;?
M3.:E$:!I;H!01ACLB>4&;^/IY,)S;DDW) A.5-'$$$@DP001(-0 @XM]P00%
ME$$X,401FX%V$D(/#B343SV% 0(<8-&A6AU?]78>D,5A=H>.MXG01AUTF#16
M9&Z0T=IH:C9DAAF\E>%&3P_*0:>- MTW)!X]"4FDFT9JF(5-Y6E6IEB&$=6:
M'6$4A)!BC,'@ @RA=;<JDM&5H=226R+1Y9<@J I##2HU^E(9=C 7% J^JI!"
M@P+UA(9N!+T!'+'GO72L CG5(89P.#D:* TXH!!L&F1,FYMLN&E+!K?>O@'N
MM'RU=H5080@6682>16@AN9()",=B9-0Q!D)-/AGEE.4=MJ.B+FAXQ6'F 6MC
M?F&V-N9[S0*W$%FTV839&6^4"@(*:;A01L(_B2FC3VF<(>-"$=8AAQUID"J&
MCGCED4)K=]K6V'XNTSMA8F]@-O&DE2IZJ4-N'/D2=,F"4)) *-R\ATN;+;H9
M"Y8ZBJD;/<#0H(:^YGBP&UL$#*641'2Q17779;==%U]7S6AN%M-A5,6GT>'$
M67$WC3<59;0!1X-4LP3"$<-%N%560??TQDPSZP&6:?:V^9C/ K*EDH9F!/UQ
M&EWOD(9"L GG!@KJF7=L&BNL<+.&4WLH(87WGK%%&AFZ=T(8)X"PPL=LF(MN
M"B"4 ((,-DRK81^;8UYA;+;CON$)7,!P N$:[IOL3"B(@/B06B-=/!DZ%#\'
M%VZ(@+71X>O$PNS//\:NAG<8C! *J(TA./Z>Q2\;"ZE#0PI>!X+8=<AP38C7
MC,IPAX+IB P\6EKS..<YD(5N,PEADI/.-J4=;*9U!(0=U60'FS' (0_0>B"/
M;M<%%@!+6&7@WX3\=X8!QFUY$P2!X8P@$ 'Q!P3U4PT:]K,DQ."-99H;87GH
MEK<-->4IU;GA$IV5M[VU84,MB 'V.M0YS%C0:QCD@08%AC8/LLYU2C2@A_X6
MN,*X9UEWP%L*Q\9"Y7TH/A]CH^ R>$0ZA+!#4TM 'S>DQ\$I0)!,7(@5-Y0&
M*>+00\Q3HN%D@IPE/>X^8H.@HB)#.:P0QT8GT0S\:F>4^0B&,"!08H=&";V$
MQ<B(FAF-&NJPD/BDX6<O+,C6P*(CRHB!,K^9PUDNITH-A;(_,]%,T,X@&:)<
ML63SRHWC<&0P3;K!*%KARHU<<\7_[*0GQ<1)?!"%F3VQQR2UN0VJKC@Q-O&(
M#@F+R4QJ<I.<?!.(DNG)F,+I3D7I4S0(H>6$C((464T'"D&0PG:H((0@$"&>
ME*0G3JPR%-#0,YQS6!:<! 3!-Q1F8GOJT]9*XZ=HXH4.PDE8$@LZ*X0@5*%.
M:2@1W!*?0,D*!"]=J$R5B$=B);(G8H2C'%DIOYN-0%&&2F,Q\W="&=(.>BS(
MY K[:,4NV!&'DM12;!S')TDQ$',2Y"GWLE8D-Y0@!JSJ@7MB0#RE@DA[B^*>
M]]A7UO&5KP3G2]_ZP%?6]_6O=E<%020]1-:MM2YNS-,0U>!*![E^[V@ZL:OY
MT*>^PB(MBWZ=(6"W:!HZN*Q'6E1 )-OEEUP&A2H*!(V:4'.Y?*V)7_[2CV3>
M,";,L)9<EYS8',+ E=:8[@PG 2)>AJ@F1#50!+Q9C!SF0)9(X45I22R6:6-8
M+('<MH8*,&#3&DDU\;AI# 6#T)#N0,.U2:5MVG$"W*C6-'-9H51&80X9WLL&
MHXR7OEOLXN="-SK4F YD;KCNZD!(-35NAGL0S-?P,EBK6Q6!>#J$21.J0(4@
M4*$((<AP""3H(0-KZ$4A@LF[)GI/.*C&/IKQ9QI,PP;*C!<$I#(5T(1VLA=?
MEP7AA(EUBQ,& <WG!'#@C6?E((;>34R^1$2(FC9"G)1JB(?+[<EN<ER9T](&
M-I*9PU>*$YD6Z %0 IH#F_XE-ZO H 7(4QJ(D@@B]WK,/2@(GH*[13SCW8!X
M+0#!#+;HH9[N&'HL;(_N0'""/XHP ?*E[X:0YTC!%K,,S2E#,0.9Z#=7[;J!
MSO/NKE?,P7[(<% 0LLO$P.$/5?HV<#ZU[T@:*$7_3@9W+M[Q;L#G#O54U6H]
M7O(F?<CQEE=Z@^8TB!+[(4@#A]<)\'7M NT>5?]NTXTF]B,[9&Q)=[B8R@8T
ML"^];-Q)D=B>SO:%MDT]ZW%V.)_M#'EKUZ#1@A@F0F4B:@6C6GM!#\PX&0YO
M[C(DT,!QBL#93'_$1-&3Z<DDYA%!:ZX+@C/$;)-A$,,;@A+/&"%$27@1WR5%
M@+?FUIO)*%4RD?'B*#GD <=^$4-7M28CVZ9!<"F%5=/B345H04@%XQ5P=MEK
MM32PP%!F"%WS]/M%T9%.#O\-X(#1*$(/ =UW[HGX'%"'<#1D6MV8QIT=/=W9
&= .]W0H 
 
end
Newsgroups: talk.origins