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.
-- Enter your code here. Read input from STDIN. Print output to STDOUTimportData.List-- both are working--solve s = [let (s1, s2) = splitAt n s in s2 ++ s1 | n <- [1..length s]]solves=tail$zipWith(++)(tailss)(initss)main=getContents>>=mapM_(putStrLn.unwords.solve).tail.lines
Rotate String
You are viewing a single comment's thread. Return to all comments →
Yet another concise Haskell solution