let gen_xy vals comp o =
List.fold_left (fun a (x, y) -> comp (fst a) x, comp (snd a) y) o vals
let max_xy vals = gen_xy vals max (min_int, min_int)
Что бы начальное значение, присвоенное min_int в то время, когда max_xy [ (1,2);(3,4) ]
вводится в #prompt?что бы начальные значения
Благодаря для любого входа