Skip to content

Instantly share code, notes, and snippets.

@SunskyXH

SunskyXH/qsort.re

Created December 17, 2017 05:23
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save SunskyXH/afb5e7b57529edb34c6b23752eef8b96 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save SunskyXH/afb5e7b57529edb34c6b23752eef8b96 to your computer and use it in GitHub Desktop.
Download ZIP
quick sort in reason
Raw
qsort.re
let rec quicksort = (gt) =>
fun
| [] => []
| [x, ...xs] => {
let (ys, zs) = List.partition(gt(x), xs);
quicksort(gt, ys) @ [x, ...quicksort(gt, zs)]
};
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment