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