diff options
| -rw-r--r-- | elymas/lib/sort.ey | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/elymas/lib/sort.ey b/elymas/lib/sort.ey index 163062a..0aafc61 100644 --- a/elymas/lib/sort.ey +++ b/elymas/lib/sort.ey @@ -4,16 +4,14 @@ s e add 2 div ==m s m mergeSort =*x 0 ==i m 1 add e mergeSort =*y 0 ==j + { i _ x -01 1 add =i } ==l + { j _ y -01 1 add =j } ==r [ { i |x len lt j |y len lt and } { - i x a j y a lt { - i _ x -01 1 add =i - } { - j _ y -01 1 add =j - } ? * + i x a j y a lt l r ? * } loop - { i |x len lt } { i _ x -01 1 add =i } loop - { j |y len lt } { j _ y -01 1 add =j } loop + { i |x len lt } l loop + { j |y len lt } r loop ] } ? * } /mergeSort deffst |