Inversión de palabras

3 Comentarios

1. Haskell

   palabrasInvertidas :: String -> String palabrasInvertidas = unwords . reverse . words

   1 2	palabrasInvertidas :: String -> String palabrasInvertidas = unwords . reverse . words

   Responder

2. Haskell

   palabrasInvertidas :: String -> String palabrasInvertidas = concat . reverse . trocea trocea :: String -> [String] trocea xs | resto == "" = [siguientePalabra] | otherwise = siguientePalabra : " " : trocea (tail resto) where siguientePalabra = takeWhile (/= ' ') xs resto = dropWhile (/= ' ') xs

   1 2 3 4 5 6 7 8 9

   palabrasInvertidas :: String -> String palabrasInvertidas = concat . reverse . trocea trocea :: String -> [String] trocea xs   | resto == "" = [siguientePalabra]   | otherwise   = siguientePalabra : " " : trocea (tail resto)   where siguientePalabra = takeWhile (/= ' ') xs         resto            = dropWhile (/= ' ') xs

   Responder

3. Haskell

   import Data.List.Split (splitOn) palabrasInvertidas :: String -> String palabrasInvertidas = concat . zipWith (++) ([] : repeat " ") . reverse . splitOn " "

   1 2 3 4 5 6 7 8

   import Data.List.Split (splitOn)   palabrasInvertidas :: String -> String palabrasInvertidas =   concat   . zipWith (++) ([] : repeat " ")   . reverse   . splitOn " "

   Responder