35 lines
1.1 KiB
OCaml
35 lines
1.1 KiB
OCaml
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 [[]; []] = []);; |