15 lines
483 B
Text
15 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
|