Anonymous user
Entropy/Narcissist: Difference between revisions
→{{header|AWK}}
Line 179:
for(i=1;i<=NF;i++)H[$i]++
for(i in H)E-=(h=H[i]/NF)*log(h)
print "bytes ",NF,"
exit}</lang>
{{Output}}
<pre>bytes 158
=={{header|C}}==
| |||
Line 179:
for(i=1;i<=NF;i++)H[$i]++
for(i in H)E-=(h=H[i]/NF)*log(h)
print "bytes ",NF,"
exit}</lang>
{{Output}}
<pre>bytes 158
=={{header|C}}==
| |||