map reduce ocaml

mapreduce.ml

(* The map function *)
let rec map fn list =
    match list with []->[]
    | n::ns -> fn n::map fn ns;;

(* The reduce function *)
let rec reduce fn id list =
    match list with []->id
    | n::ns->fn n (reduce fn id ns);;