0
How do I make this more "ocamlic"?
let rec spilt = function
| [] -> ([],[])
| [h] -> ([h],[])
| f::s::t -> let (rf, rs) = spilt t in (f::rf, s::rs)
let rec merge a b =
match a with
[] -> b
| (ah::at) -> match b with
[] -> a
| (bh::bt) -> if ah < bh then ah::(merge at b) else bh::(merge a bt);;...