24 lines
453 B
Plaintext
24 lines
453 B
Plaintext
10 DEF FN L(X)=LOG(X)/LOG(2)
|
|
20 S$="1223334444"
|
|
30 U$=""
|
|
40 FOR I=1 TO LEN(S$)
|
|
50 K=0
|
|
60 FOR J=1 TO LEN(U$)
|
|
70 IF MID$(U$,J,1)=MID$(S$,I,1) THEN K=1
|
|
80 NEXT J
|
|
90 IF K=0 THEN U$=U$+MID$(S$,I,1)
|
|
100 NEXT I
|
|
110 DIM R(LEN(U$)-1)
|
|
120 FOR I=1 TO LEN(U$)
|
|
130 C=0
|
|
140 FOR J=1 TO LEN(S$)
|
|
150 IF MID$(U$,I,1)=MID$(S$,J,1) THEN C=C+1
|
|
160 NEXT J
|
|
170 R(I-1)=(C/LEN(S$))*FN L(C/LEN(S$))
|
|
180 NEXT I
|
|
190 E=0
|
|
200 FOR I=0 TO LEN(U$)-1
|
|
210 E=E-R(I)
|
|
220 NEXT I
|
|
230 PRINT E
|