32 lines
773 B
Plaintext
32 lines
773 B
Plaintext
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
|