print a liste sorted

print_sorted.ml

let print_sorted =
    let rec filter acc f = function
        [] -> []
      | e :: l when e = f -> List.rev acc @ l
      | e :: l -> filter (e :: acc) f l
    in let rec minimum m = function
        [] -> m
      | e :: l -> minimum (min e m) l
    in let rec p = function
        [] -> ()
      | m :: [] -> print_string (string_of_int m)
      | e :: l -> let m = minimum e l in
                  print_string (string_of_int m ^ " ");
                  p (filter [] m (e :: l))
    in p
let () = print_sorted [-2; 4; 8; 3; -7; 4]

print_sorted_by_ragotin.ml

let print_sorted = function
    [] -> ()
  | c :: d -> let rec sort min = function
                [], [] -> print_int min
              | [], a :: b -> print_int min;
                              print_string " ";
                              sort a (b, [])
              | a :: b, list2 -> if a < min then
                                   sort a (b, min :: list2)
                                 else
                                   sort min (b, a :: list2)
              in sort c (d, [])