sequences.extras: faster minimum/maximum.

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 5189738fb78a54a9dc3e43cab1d21ca493e75d79..8cbe93e89ae9fb733cee8920410ba6a47b24f4cd 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -30,12 +30,10 @@ IN: sequences.extras
     [ bi@ [ min ] keep eq? not ] curry most ; inline
 
 : maximum ( seq quot: ( ... elt -- ... x ) -- elt )
-    [ keep 2array ] curry
-    [ [ first ] max-by ] map-reduce second ; inline
+    [ dup ?first ] dip [ max-by ] curry reduce ; inline
 
 : minimum ( seq quot: ( ... elt -- ... x ) -- elt )
-    [ keep 2array ] curry
-    [ [ first ] min-by ] map-reduce second ; inline
+    [ dup ?first ] dip [ min-by ] curry reduce ; inline
 
 : all-subseqs ( seq -- seqs )
     dup length [1,b] [ <clumps> ] with map concat ;