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