DEV Community

loading...

Discussion on: Daily Challenge #15 - Stop gninnipS My sdroW!

Collapse
tarptaeya profile image
Anmol Gautam • Edited

Haskell, with user input

condRev :: [Char] -> [Char]
condRev s = if length s >= 5 then reverse s else s

toString :: [[Char]] -> [Char]
toString [] = []
toString (x:[]) = x
toString (x:xs) = x ++ " " ++ toString xs

solve :: [Char] -> IO ()
solve s = putStrLn $ toString $ map condRev $ words s

main :: IO ()
main = do
    line <- getLine
    solve line