let
sort t f =
let
sub_arr =
Array
.sub t.data 0 t.sz
in
Array
.fast_sort f sub_arr; t.data <- sub_arr