Data commit

Task/Evolutionary-algorithm/Commodore-BASIC/evolutionary-algorithm.basic

@@ -0,0 +1,31 @@
+10 N=100:P=0.05:TI$="000000"
+20 Z$="METHINKS IT IS LIKE A WEASEL"
+30 L=LEN(Z$)
+40 DIMX(N,L)
+50 FORI=1TOL
+60 IFMID$(Z$,I,1)=" "THENX(0,I)=0:GOTO80
+70 X(0,I)=ASC(MID$(Z$,I))-64
+80 NEXT
+90 FORK=1TON:FORI=1TOL:X(K,I)=INT(RND(0)*27):NEXT:NEXT
+100 S=-100:B=0
+110 K=B:GOSUB300
+120 FORK=1TON:IFK=BTHEN150
+130 FORI=1TOL:IFRND(.)<PTHENX(K,I)=INT(RND(0)*27)
+140 NEXT
+150 NEXT
+160 S=-100:B=0
+170 FORK=1TON
+180 F=0:FORI=1TOL:IFX(K,I)<>X(0,I)THENF=F-1:IFF<STHENI=L
+190 NEXT:IFF>STHENS=F:B=K
+200 NEXT
+210 PRINT"BEST:"B;"SCORE:"S
+220 IFS=0THEN270
+230 FORK=1TON:IFK=BTHEN250
+240 FORI=1TOL:X(K,I)=X(B,I):NEXT
+250 NEXT
+260 GOTO110
+270 PRINT"WE HAVE A WEASEL!":K=B:GOSUB300
+280 PRINT"TIME:"TI$:END
+300 FORI=1TOL:IFX(K,I)THENPRINTCHR$(64+X(K,I));:GOTO320
+310 PRINT" ";
+320 NEXT:PRINT"<":RETURN