Dans le même genre, tu peux remplacer ça getContents >>= putStrLn . unlines . map zorglangue . lines par ça interact $ unlines . map zorglangue . lines.
Et ça map cap $ zip l1 l2 where cap (f, c) = f c par ça zipWith ($) l1 l2.
Et enfin (mais là je suis pas sûr sûr, en tout cas les types matchent), ça concatMap capReverse . splitWords par ça capReverse <=< splitWords.
[^] # Re: Haskell
Posté par navaati . En réponse au journal Esod mumixam !. Évalué à 3.
Dans le même genre, tu peux remplacer ça
getContents >>= putStrLn . unlines . map zorglangue . linespar çainteract $ unlines . map zorglangue . lines.Et ça
map cap $ zip l1 l2 where cap (f, c) = f cpar çazipWith ($) l1 l2.Et enfin (mais là je suis pas sûr sûr, en tout cas les types matchent), ça
concatMap capReverse . splitWordspar çacapReverse <=< splitWords.