OCaml如何只反转列表中的偶数

这是一个草稿，它使元素在偶数位置处反转（这是我假设您的问题所表示的意思）。这可能远非最佳（例如，您应该进行递归split和join尾部递归）：

let rec split = function
| [] -> [],[]
| h::[] -> [h],[]
| x::y::t -> let a,b = split t in x::a, y::b;;

let rec join a b = match a,b with
| [],_ -> b
| _,[] -> a
| ha::ta,hb::tb -> ha::hb::(join ta tb);;

let doit l = let a,b = split l in join a (List.rev b);;