From b5362e4f9060cd2f69040b25aefe248e02182fe8 Mon Sep 17 00:00:00 2001 From: Drahflow Date: Wed, 26 Mar 2014 02:55:35 +0100 Subject: Refactoring --- elymas/lib/sort.ey | 12 +++++------- 1 file 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 -- cgit v1.2.3