Haskell/ReverseWords.hs at main · tulkdan.dev/Languages

tulkdan.dev / Languages

this repo has no description

Languages / Haskell / ReverseWords.hs

at main 199 B view raw

 1main = do
 2  line <- getLine
 3  if null line
 4    then return ()
 5    else do
 6      putStrLn $ reverseWords line
 7      main
 8
 9reverseWords :: String -> String
10reverseWords = unwords . map reverse . words