reverse_do.hs

télécharger

main :: IO ()
main = do
    input <- demander
    affiche (a_lenvers input)

affiche :: String -> IO ()
affiche = putStrLn

demander :: IO String
demander = getLine

a_lenvers :: String -> String
a_lenvers = reverse