es3.ml

let somma (a,b) (c,d) =
  ((a + c + (b+d)/60) mod 24, (b+d) mod 60)

let leggi first fn =
  let rec aux ris =
    match read_line() with
    | "." -> ris
    | str -> aux (fn (str, ris))
  in aux (first())


(* ((int_of_string str)::lista) *)


(*
let massimo () = leggi (read_int(), (function (str, max) ->
  let n = int_of_string str in if (n > max) then max else n))
*)

let massimo() = leggi read_int (function (str, max) ->
  let n = int_of_string str in if (n > max) then n else max)

let maxmin() = leggi (function() -> let n = read_int() in (n, n))
    (function (str, (min, max)) -> let n = (int_of_string str) in
    ((if (n < min) then n else min),
     (if (n > max) then n else min)));;


let a = function (str, (min, max)) ->
  let n = (int_of_string str) in
    ((if (n < min) then n else min),
     (if (n > max) then n else min))

let leggi_lista() = leggi
    (function () -> [])
    (function (str, ris) -> (int_of_string str)::ris)