8 lines
284 B
Text
8 lines
284 B
Text
DIM Freq%(255)
|
|
FOR I%=PAGE TO LOMEM Freq%(?I%)+=1 NEXT
|
|
Size=LOMEM - PAGE
|
|
FOR I%=0 TO 255
|
|
IF Freq%(I%) Entropy+=Freq%(I%) / Size * LN(Freq%(I%) / Size) / LN(2)
|
|
NEXT
|
|
PRINT "My size is ";Size " bytes and my entropy is ";-Entropy "!"
|
|
END
|