We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Functional Programming
  3. Recursion
  4. String-o-Permute
  5. Discussions

String-o-Permute

  • shannarra
     + 0 comments

    A simple haskell solution:

    import Control.Monad

merge (x:y:rest) = y:x: merge rest
merge rest = rest

main = do
    count <- getLine
    forM [0..(read count :: Int)-1] $
        (\_ -> do -- Here's where the magic happens N times:
            line <- getLine
            putStrLn $ merge line
        )