Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
main = do
premierMot <- getLine
deuxiemeMot <- getLine
putStr "Le premier mot est "
putStrLn premierMot
putStr "Le second mot est "
putStrLn deuxiemeMot
putStrLn (trouverOrdre premierMot deuxiemeMot)
trouverOrdre :: String -> String -> String
trouverOrdre (premiereLettreMot1:suiteMot1) (premiereLettreMot2:suiteMot2)
| premiereLettreMot1 < premiereLettreMot2 = "Le premier mot est avant le second"
| premiereLettreMot1 > premiereLettreMot2 = "Le second mot est avant le premier"
| premiereLettreMot1 == premiereLettreMot2 = trouverOrdre suiteMot1 suiteMot2
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more