14 lines
483 B
Text
14 lines
483 B
Text
scope # Show the Shannon entropy of a string
|
|
|
|
# the Agena strings.shannon library routine returns three values:
|
|
# the normalised specific Shannon entropy, the specific Shannon entropy and
|
|
# the total information entropy
|
|
# the middle value appears to be the one required for the task
|
|
local proc shannon( s :: string ) :: number
|
|
local nse, se, tie := strings.shannon( s );
|
|
return se
|
|
end;
|
|
|
|
print( shannon( "1223334444" ) )
|
|
|
|
epocs
|