From d41236448329bf4ae09d628223b12646bef1472d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 31 May 2012 10:46:42 -0700
Subject: [PATCH] sequences.extras: even simpler round-robin.

---
 extra/sequences/extras/extras.factor | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index b84955d843..0c4e950adc 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -184,12 +184,8 @@ PRIVATE>
 : 2count ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ? ) -- ... n )
     [ 1 0 ? ] compose 2map-sum ; inline
 
-: max-lengths ( seq -- n )
-    [ length ] [ max ] map-reduce ;
-
 : round-robin ( seq -- newseq )
     [ { } ] [
-        dup [ max-lengths ] [ length ] bi [ iota ] bi@
-        [ [ 2array ] with map ] curry map concat swap
-        [ [ first2 ] dip nth-unsafe ?nth ] curry map sift
+        [ [ length ] [ max ] map-reduce iota ] keep
+        [ [ ?nth ] with map ] curry map concat sift
     ] if-empty ;