(* 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);;