RosettaCodeData/Task/Entropy/K/entropy.k

4 lines
78 B
Plaintext

entropy: {(`ln[#x]-(+/{x*`ln@x}@+/{x=\:?x}x)%#x)%`ln@2}
entropy "1223334444"