Entropy/Narcissist: Difference between revisions

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

<syntaxhighlight lang="bbcbasic"> 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</syntaxhighlight>

{{out}}

<pre>My size is 224 bytes and my entropy is 5.11257089!</pre>