rosetta-code.multisplit: reduce memory usage

Avoid creating a filtered sequence when all we need is its first element.

diff --git a/extra/rosetta-code/multisplit/multisplit.factor b/extra/rosetta-code/multisplit/multisplit.factor
index b082be912395b1d25dc2880e58ae95164c46e93b..cfe5583bc3d90138f82662356de23f999f3f999b 100644 (file)
--- a/extra/rosetta-code/multisplit/multisplit.factor
+++ b/extra/rosetta-code/multisplit/multisplit.factor
@@ -8,7 +8,7 @@ IN: rosetta-code.multisplit
     over [ 2array ] [ 2drop f ] if ;
 
 : best-separator ( seq -- pos index )
-    dup [ first ] map infimum '[ first _ = ] filter first first2 ;
+    dup [ first ] map infimum '[ first _ = ] find nip first2 ;
 
 : first-subseq ( separators seq -- n separator )
     dupd [ swap [ subseq-start ] dip ?pair ] curry map-index sift