(* TP 02 - Exercice 2 - Plus longue sous-séquence commune en OCaml *)

(* Détermine la longueur de la plus longue sous-séquence commune *)
let lplssc m1 m2 =
  (* A FAIRE *)
  0
;;


(* Détermine la (une des) plus longue sous-séquence commune *)
let plssc m1 m2 =
  (* A FAIRE *)
  []
;;

let m1 = [|1;7;4|];;
let m2 = [|3;1;4;3|];;
Printf.printf "lplssc %d\n" (lplssc m1 m2);;


let m3 = [|2;4;1;2;4;4;2;1;2;7;2|];;
let m4 = [|1;2;4;6;4;5;2;4;1;7|];;
Printf.printf "lplssc %d\n" (lplssc m3 m4);;