open Lib;;

assert (plusetfois 5 6 = (11, 30));;

assert (pp2 10 = 16);;
assert (pp2 32 = 32);;
assert (pp2 1 = 1);;
assert (pp2 0 = 0);;

assert (leeloo [2; 65; 2; 3; 7; 2] = 7);;

assert (coupe [2; 65; 4; 3; 7; 2] = ([2; 4; 7], [65; 3; 2]));;
assert (coupe [2; 65; 4; 3; 7; 2; 0] = ([2; 4; 7; 0], [65; 3; 2]));;

assert (colle [2; 4; 7] [65; 3; 2] = [2; 65; 4; 3; 7; 2]);;
assert (colle [2; 4; 7; 0] [65; 3; 2] = [2; 65; 4; 3; 7; 2; 0]);;

assert (compte [2; 65; 4; 3; 7; 2] 2 = 2);;

assert (sommesi [2; 65; 4; 3; 7; 2] (fun x -> x mod 2 = 1) = 75);;

assert (majopred [2; 65; 4; 3; 7; 2] (fun x -> x mod 2 = 1));;
assert (not (majopred [2; 65; 6; 4; 3; 7; 2] (fun x -> x mod 2 = 1)));;

assert (lexico [2; 4; 7] [2; 4; 7]);;
assert (not (lexico [2; 4; 7; 3] [2; 4; 7]));;
assert (lexico [2; 4; 7] [2; 4; 7; 3]);;
assert (lexico [2; 4; 7] [2; 5; 7]);;
assert (not(lexico [2; 5; 7] [2; 4; 7]));;

assert (aplatir [[1; 2]; [3; 4]] = [1; 2; 3; 4]);;
assert (aplatir [[]; [3; 4]] = [3; 4]);;
assert (aplatir [] = []);;
assert (aplatir [[]] = []);;
assert (aplatir [[]; []] = []);;