18 lines
390 B
OCaml
18 lines
390 B
OCaml
open Tp6;;
|
|
|
|
assert (correct (Fraction (3, 4)));;
|
|
assert (correct (Entier 5));;
|
|
assert (not (correct (Fraction (3, 0))));;
|
|
|
|
assert (Fraction(1, 2) $= Fraction(2, 4));;
|
|
|
|
assert (count_coul [|
|
|
{ coul = Carreau; va = Huit };
|
|
{ coul = Carreau; va = Neuf }
|
|
|] = [|0;0;0;2|]);;
|
|
|
|
assert (count_val [|
|
|
{ coul = Carreau; va = Huit };
|
|
{ coul = Carreau; va = Neuf }
|
|
|] = [|0;1;1;0;0;0;0;0|]);;
|