rhaseven7h · July 21, 2016 05:39
diff --git a/a_string_rotate.hs b/a_string_rotate.hs
 -- Rotate Strings

 import Data.List

 rotate s r = drop r s ++ take r s

 solve s = intercalate " " (tail rss ++ [ head rss ])
    where rss = [ rs | r <- [ 0 .. (length s - 1) ], let rs = rotate s r ]

 main = do
    getContents >>= mapM_ putStrLn . map solve . tail . lines
diff --git a/input.txt b/input.txt
 5
 abc
 abcde
 abab
 aaa
 z
diff --git a/output.txt b/output.txt
 bca cab abc
 bcdea cdeab deabc eabcd abcde
 baba abab baba abab
 aaa aaa aaa
 z
	-- Rotate Strings

	import Data.List

	rotate s r = drop r s ++ take r s

	solve s = intercalate " " (tail rss ++ [ head rss ])
	where rss = [ rs \| r <- [ 0 .. (length s - 1) ], let rs = rotate s r ]

	main = do
	getContents >>= mapM_ putStrLn . map solve . tail . lines
	bca cab abc
	bcdea cdeab deabc eabcd abcde
	baba abab baba abab
	aaa aaa aaa
	z