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 | |
| parent | 3acf17796bedc1e9d76d7ebea92071bff2b7d61f (diff) | |
Generalized sorting.
| -rw-r--r-- | elymas/lib/sort.ey | 6 | ||||
| -rw-r--r-- | examples/working-loaded/sort.test | 2 |
2 files changed, 4 insertions, 4 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 diff --git a/examples/working-loaded/sort.test b/examples/working-loaded/sort.test index aff323b..c4b2cd7 100644 --- a/examples/working-loaded/sort.test +++ b/examples/working-loaded/sort.test @@ -1,6 +1,6 @@ "lib/sort.ey" include -[ 99 7 2 3 ] order dump +[ 99 7 2 3 ] |lt order dump map ==m 99 /foo m =[] |