Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

TODO: check efficiency of transforms

  • Loading branch information...
commit 2ddc1c23cef8f8c5dbd81237432adbdb90dc0e2f 1 parent 3c1f2bc
@thelema thelema authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  src/
1  src/
@@ -289,6 +289,7 @@ let reduce f a =
let min a = reduce Pervasives.min a
let max a = reduce Pervasives.max a
+(* TODO: Investigate whether a second array is better than pairs *)
let decorate_stable_sort f xs =
let decorated = map (fun x -> (f x, x)) xs in
let () = stable_sort (fun (i,_) (j,_) -> compare i j) decorated in

0 comments on commit 2ddc1c2

Please sign in to comment.
Something went wrong with that request. Please try again.