mp2i-info/td5/test.ml
2026-01-13 23:23:08 +01:00

9 lines
184 B
OCaml

open Td5;;
let l = [5; 3; 9; 0; 5; 0];;
let sorted = [0; 0; 3; 5; 5; 9];;
assert (insertion_sort l = sorted);;
assert (selection_sort l = sorted);;
assert (fusion_sort l = sorted);;