From ab4a058b2cd6722fb84e7e14c255aed2b8e55a59 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 9 Feb 2014 08:05:26 -0800
Subject: [PATCH] sequences: implement sum on repetitions.

---
 core/sequences/sequences.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 07bc535793..2662c6c720 100644
--- 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 ;