As far as I know, there is no implementation of
argmin in the default ocaml library (or perhaps they could be called
maxi for more consistency with respect to
mapi). The following snippet solves it!
let argmax l = let rec aux max_index index max_value = function |  -> max_index | h::t -> if h > max_value then aux index (index + 1) h t else aux max_index (index + 1) max_value t in match l with |  -> 0 | _ -> aux 0 0 (List.hd l) l
Note that the defaut behavior with an empty list is to return 0 but it can be changed.