June 2018 Update

Task/Entropy/BASIC/entropy-1.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

Task/Entropy/BASIC/entropy-2.basic

@@ -0,0 +1,22 @@
+ 10 LET X$="1223334444"
+ 20 LET U$=""
+ 30 FOR I=1 TO LEN X$
+ 40 LET K=0
+ 50 FOR J=1 TO LEN U$
+ 60 IF U$(J)=X$(I) THEN LET K=K+1
+ 70 NEXT J
+ 80 IF K=0 THEN LET U$=U$+X$(I)
+ 90 NEXT I
+100 DIM R(LEN U$)
+110 FOR I=1 TO LEN U$
+120 LET C=0
+130 FOR J=1 TO LEN X$
+140 IF U$(I)=X$(J) THEN LET C=C+1
+150 NEXT J
+160 LET R(I)=C/LEN X$*LN (C/LEN X$)/LN 2
+170 NEXT I
+180 LET E=0
+190 FOR I=1 TO LEN U$
+200 LET E=E-R(I)
+210 NEXT I
+220 PRINT E