Recherche:

Non en fait j'avais pas cherché à comprendre, ma remarque voulait juste dire que je ne m'étais pas attardé sur ces détails, juste sur la résolution de ton problème.

Je viens de jeter un oeil un...

exception break_loop;;

let partitionner_a3 a g d =
let pivot = a.(d) and i = ref g and j = ref (d - 1) in
try
begin
while true do while a.(!i) < pivot do i := !i + 1; done;
...