Aidé moi le gars
foude [ch1,y1,t1] [ch2,y2,t2] t |ta > tb ="oui" |((ch1 == chbr) && (ch2 == chr))="oui" |((ch1 == chbr) && (ch2 == chbr))="oui" |((ch1 == chn) && (ch2 == chbr))="oui" |((ch2 == chr) && (y1 == yv))="oui" |((ch1 == chn) && (y2 == yv))="oui" |otherwise="sais pas" couple_ideal [ch1,y1,t1] [ch2,y2,t2] |(([ch1,y1,t1]) == ([ch2,y2,t2])) && (([ch2,y2,t2]) == ([ch1,y1,t1])) = foude [ch1,y1,t1] [ch2,y2,t2] "couple_ideal" | otherwise = "couple non ideal"