Caml test

Caml test

let altitude = fun n ->
let t = make_matrix (n+2) (n+2) 0 in
	for i=1 to n do
	 for j=1 to n do
	  t.(i).(j) <- 2
	 done;
	done; 
	t.(n).(n) <- 1;
	let rec aux = fun (u,v) -> match (u,v) with
	 (u,v) when t.(u).(v) != 2 -> t.(u).(v)
	|(u,v) -> aux(u+1,v) + aux(u,v+1)
	in aux (1,1);;


altitude 10;;