reverse_appl.hs

télécharger

import Control.Applicative

main :: IO ()
main = do
    reversed_input <- ((pure a_lenvers) <*> demander)
--  reversed_input <- (a_lenvers <$> demander)
    affiche reversed_input

demander :: IO String
demander = getLine

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

a_lenvers :: String -> String
a_lenvers = reverse