Sorting algorithms/Shell sort: Difference between revisions

Content added Content deleted
Line 403: Line 403:
=={{header|OCaml}}==
=={{header|OCaml}}==
{{trans|C}}
{{trans|C}}
<lang ocaml>exception Continue
<lang ocaml>let shellsort a =

let shellsort a =
let len = Array.length a in
let len = Array.length a in
let incSequence = [| 412771; 165103; 66041; 26417; 10567;
let incSequence = [| 412771; 165103; 66041; 26417; 10567;