KKostya
7/25/2018 - 1:43 PM

get_min_range.ml

get_min_range.ml
content_copyfile_download
let get_min_range max lst =
  List.fold_right ~base:max
    (fun x a -> if x < a then x else a) lst