sorting.insertion: skip the zero'th element.

db4
John Benediktsson 2014-04-27 17:13:26 -07:00
parent 72efd16074
commit 00bd0c52e7
1 changed files with 3 additions and 1 deletions
basis/sorting/insertion

View File

@ -2,6 +2,7 @@ USING: kernel locals math sequences sequences.private ;
IN: sorting.insertion
<PRIVATE
:: insert ( ... seq quot: ( ... elt -- ... elt' ) n -- ... )
n zero? [
n n 1 - [ seq nth-unsafe quot call ] bi@ >= [
@ -9,8 +10,9 @@ IN: sorting.insertion
seq quot n 1 - insert
] unless
] unless ; inline recursive
PRIVATE>
: insertion-sort ( ... seq quot: ( ... elt -- ... elt' ) -- ... )
! quot is a transformation on elements
over length [ insert ] with with each-integer ; inline
over length [ insert ] with with 1 -rot (each-integer) ; inline