splitting.monotonic: a bit faster.

diff --git a/basis/splitting/monotonic/monotonic.factor b/basis/splitting/monotonic/monotonic.factor
index 024a7e32fa966f08b9c43ecd46e7efa82bf49693..e4c075e38ed99f3b99b4ca90eb92acd188bc2c1d 100644 (file)
--- a/basis/splitting/monotonic/monotonic.factor
+++ b/basis/splitting/monotonic/monotonic.factor
@@ -7,19 +7,19 @@ IN: splitting.monotonic
 <PRIVATE
 
 :: ((monotonic-split)) ( seq quot slice-quot n -- pieces )
-    V{ } clone :> accum
+    V{ 0 } clone :> accum
 
-    0 0 seq [ ] [
+    0 seq [ ] [
         [ 1 + ] 2dip [
-            quot call [
-                [ seq slice-quot call accum push ] keep dup
-            ] unless
+            quot call [ dup accum push ] unless
         ] keep
     ] map-reduce drop
 
-    n = [ drop ] [ n seq slice-quot call accum push ] if
+    n = [ n accum push ] unless
 
-    accum { } like ; inline
+    accum dup rest-slice [
+        seq slice-quot call
+    ] { } 2map-as ; inline
 
 : (monotonic-split) ( seq quot slice-quot -- pieces )
     pick length [ 3drop { } ] [ ((monotonic-split)) ] if-zero ; inline