let rec ppcmf xs ys = match xs,ys with | [],_ -> ys | _,[] -> xs | x::rx, y::ry -> if x < y then x::ppcmf rx ys else if y < x then y::ppcmf xs ry else (* x=y *) x::ppcmf rx ry |
On retrouve la structure de la fonction communs de la section précédente.