3 lines
109 B
Text
3 lines
109 B
Text
|
shE[s_String] := -Plus @@ ((# Log[2., #]) & /@ ((Length /@ Gather[#])/
|
||
|
|
Length[#]) &[Characters[s]])
|