Entropy/Narcissist: Difference between revisions

=={{header|AWK}}==

The record separator RS is set to end of file. So getline reads the whole file in one line.

<lang AWK>

BEGIN{FS=""

RS="\x04"#EOF

getline<"entropy.awk"

for(i=1;i<=NF;i++)H[$i]++

for(i in H)E-=(h=H[i]/NF)*log(h)

print "bytes ",NF," entropie ",E/log(2)

exit}</lang>

{{Output}}

<pre>bytes 158 entropie 5.26704</pre>