13 lines
408 B
Plaintext
13 lines
408 B
Plaintext
10 LET s$="1223334444": LET base=2: LET entropy=0
|
|
20 LET sourcelen=LEN s$
|
|
30 DIM t(255)
|
|
40 FOR i=1 TO sourcelen
|
|
50 LET number= CODE s$(i)
|
|
60 LET t(number)=t(number)+1
|
|
70 NEXT i
|
|
80 PRINT "Char";TAB (6);"Count"
|
|
90 FOR i=1 TO 255
|
|
100 IF t(i)<>0 THEN PRINT CHR$ i;TAB (6);t(i): LET prop=t(i)/sourcelen: LET entropy=entropy-(prop*(LN prop)/(LN base))
|
|
110 NEXT i
|
|
120 PRINT '"The Entropy of """;s$;""" is ";entropy
|