September 2017 Update

Task/Evolutionary-algorithm/Sinclair-ZX81-BASIC/evolutionary-algorithm.sinclair

@@ -0,0 +1,43 @@
+ 10 LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
+ 20 LET T$="METHINKS IT IS LIKE A WEASEL"
+ 30 LET L=LEN T$
+ 40 LET C=10
+ 50 LET M=0.05
+ 60 LET G=0
+ 70 DIM C$(C,L)
+ 80 LET P$=""
+ 90 FOR I=1 TO L
+100 LET P$=P$+A$(INT (RND*LEN A$)+1)
+110 NEXT I
+120 PRINT AT 1,0;P$
+130 LET S$=P$
+140 GOSUB 390
+150 LET N=R
+160 PRINT AT 1,30;N
+170 PRINT AT 0,4;G
+180 IF P$=T$ THEN GOTO 440
+190 FOR I=1 TO C
+200 FOR J=1 TO L
+210 LET C$(I,J)=P$(J)
+220 IF RND<=M THEN LET C$(I,J)=A$(INT (RND*LEN A$)+1)
+230 PRINT AT I+2,J-1;C$(I,J)
+240 NEXT J
+250 PRINT AT I+2,30;"  "
+260 NEXT I
+270 LET F=0
+280 FOR I=1 TO C
+290 LET S$=C$(I)
+300 GOSUB 390
+310 PRINT AT I+2,30;R
+320 IF R>N THEN LET F=I
+330 IF R>N THEN LET N=R
+340 NEXT I
+350 IF F>0 THEN LET P$=C$(F)
+360 LET G=G+1
+370 PRINT AT 1,0;P$
+380 GOTO 160
+390 LET R=0
+400 FOR K=1 TO L
+410 IF S$(K)=T$(K) THEN LET R=R+1
+420 NEXT K
+430 RETURN