sorting.bubble: loop up to last changed index.

extra/sorting/bubble/bubble.factor

@@ -9,10 +9,10 @@ IN: sorting.bubble
 <PRIVATE
 
 :: (bubble-sort!) ( seq quot: ( obj1 obj2 -- <=> ) -- )
-    seq length [
-        1 - f over [0,b) [| i |
+    seq length 1 - [
+        f over [0,b) [| i |
             i i 1 + [ seq nth-unsafe ] bi@ 2dup quot call +gt+ =
-            [ i 1 + i [ seq set-nth-unsafe ] bi-curry@ bi* drop t ]
+            [ i 1 + i [ seq set-nth-unsafe ] bi-curry@ bi* 2drop i t ]
             [ 2drop ] if
         ] each
     ] loop drop ; inline