sequences: implement sum on repetitions.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 07bc535793306bf0dd17001481733328f26ba527..2662c6c7209ace35055b276c15719c5727906738 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -1017,6 +1017,7 @@ PRIVATE>
 GENERIC: sum ( seq -- n )
 M: object sum 0 [ + ] binary-reduce ; inline
 M: iota-tuple sum length dup 1 - * 2/ ; inline
+M: repetition sum [ elt>> ] [ len>> ] bi * ; inline
 
 : product ( seq -- n ) 1 [ * ] binary-reduce ;