math.statistics: adding a normalized-histogram word.

diff --git a/basis/math/statistics/statistics-tests.factor b/basis/math/statistics/statistics-tests.factor
index e18129526237dfadba067e68aa7bb746ed441c29..ae614ab534f2e4f65314b01e8a263b5d9375f17e 100644 (file)
--- a/basis/math/statistics/statistics-tests.factor
+++ b/basis/math/statistics/statistics-tests.factor
@@ -77,6 +77,9 @@ IN: math.statistics.tests
     "aabbcc" histogram
 ] unit-test
 
+{ H{ { 1 1/2 } { 2 1/6 } { 3 1/3 } } }
+[ { 1 1 1 1 1 1 2 2 3 3 3 3 } normalized-histogram ] unit-test
+
 {
     V{ 0 3 6 9 }
     V{ 1 4 7 }

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 12dac7c6721ace21444713eef517eeb4b0dfc48b..c610e2a64514ac54d7279477c27c81633946e961 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -227,6 +227,9 @@ PRIVATE>
 : sorted-histogram ( seq -- alist )
     histogram sort-values ;
 
+: normalized-histogram ( seq -- alist )
+    [ histogram ] [ length ] bi '[ _ / ] assoc-map ;
+
 : collect-pairs ( seq quot: ( x -- v k ) -- hashtable )
     [ push-at ] sequence>hashtable ; inline