Entropy: Difference between revisions
→Ksh: add
(→AWK: simplify) |
(→Ksh: add) |
||
Line 1,611:
Rosetta Code -> 3.0849625007211556
</pre>
=={{header|Ksh}}==
<syntaxhighlight lang="ksh">function entropy {
typeset -i i len=${#1}
typeset -X13 r=0
typeset -Ai counts
for ((i = 0; i < len; ++i))
do
counts[${1:i:1}]+=1
done
for i in "${counts[@]}"
do
r+='i * log2(i)'
done
r='log2(len) - r / len'
print -r -- "$r"
}
printf '%g\n' "$(entropy '1223334444')"</syntaxhighlight>
{{out}}
<pre>1.84644</pre>
=={{header|Lambdatalk}}==
| |||