let n = ref 37 in
while !n <> 1 do
  if !n mod 2 = 0 then n := !n / 2
  else begin
    n := 3 * !n; n := !n + 1
  end;
  print_int !n;
  print_newline ()
done
;;



let n = ref 1 in
while !n + 1 > 0 do
  n := !n * 2 + 1;
  print_int !n;
  print_newline ()
done;
print_int !n;;

let rec puissance k n =
  if n = 0 then 1
  else k * (puissance k (n-1))
;;

let n = ref 1 in
while !n + 1 > 0 do
  n := !n * 2 + 1;
  print_int !n;
  print_newline ()
done;
print_int !n;
let k = ref 0 in
while !n + 1 > 0 do
  while !n + puissance 2 (!k +1)  > 0 do
    k := !k + 1
  done;
  n := !n + puissance 2 !k
done;
!n;;


let t1 = [|3;1;2;4|];;
let n = Array.length t1 in
let x = t1.(0) in
let t2 = Array.make n x in
for i = 1 to (n-1) do
  t2.(i) <- t2.(i-1) + t1.(i)
done;
t2;;

Array.make;;

Array.init;;

Array.init 10 (fun i -> i);;

let t = Array.make 10 0 in
for i = 1 to 9 do t.(i) <- i done; t;;


let tableau_carres n = 
  let t = Array.make n 0 in
  for i = 1 to (n-1) do 
    t.(i) <- i*i
  done;
  t;;
  
tableau_carres 10;;