reverse_fmap.hs

télécharger

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

fmapIO :: (a -> b) -> (IO a) -> (IO b)
fmapIO = fmap

demander :: IO String
demander = getLine

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

a_lenvers :: String -> String
a_lenvers = reverse