Data commit

Task/Entropy/BASIC/entropy.basic

@@ -0,0 +1,23 @@
+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