Data update

Task/Entropy/Agena/entropy.agena

@@ -0,0 +1,14 @@
+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