diff options
| author | Drahflow <drahflow@gmx.de> | 2014-06-02 21:57:55 +0200 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2014-06-02 21:57:55 +0200 |
| commit | 35700489313e5c14d52e42cd09b1bf8ea9100013 (patch) | |
| tree | ec519f272bc6138faccb38a308b8b1fe6f7219c4 /elymas/lib/sort.ey | |
| parent | 3acf17796bedc1e9d76d7ebea92071bff2b7d61f (diff) | |
Generalized sorting.
Diffstat (limited to 'elymas/lib/sort.ey')
| -rw-r--r-- | elymas/lib/sort.ey | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/elymas/lib/sort.ey b/elymas/lib/sort.ey index 0aafc61..2cac3cf 100644 --- a/elymas/lib/sort.ey +++ b/elymas/lib/sort.ey @@ -1,4 +1,4 @@ -{ _ /a deff dom /d deff +{ /cmp deff _ /a deff dom /d deff { ==e ==s s e eq { [ s d ] } { s e add 2 div ==m @@ -8,7 +8,7 @@ { j _ y -01 1 add =j } ==r [ { i |x len lt j |y len lt and } { - i x a j y a lt l r ? * + i x a j y a cmp l r ? * } loop { i |x len lt } l loop { j |y len lt } r loop @@ -18,6 +18,6 @@ 0 |d len 1 sub mergeSort } /order deffd -{ _ order -01 { * }_ [ 0 ] [ 0 ] '' * } /sort deffd +{ _ |lt order -01 { * }_ [ 0 ] [ 0 ] '' * } /sort deffd # vim: syn=elymas |