rhaseven7h · July 21, 2016 06:03
diff --git a/a_remove_duplicates.hs b/a_remove_duplicates.hs
 ---- Remove Duplicates and return characters in the order they were found

 import Data.List

 solve :: String -> String -> String
 solve b "" = b
 solve b (s:st)
    | isInfixOf (s : "") b = solve b st
    | otherwise = solve (s : b) st

 main = do
    line <- getContents
    putStrLn $ reverse $ solve "" line
diff --git a/gistfile1.txt b/gistfile1.txt
 acb
diff --git a/input.txt b/input.txt
 acaaabbacbacbbacccbbbaccbacbbcabcba
	---- Remove Duplicates and return characters in the order they were found

	import Data.List

	solve :: String -> String -> String
	solve b "" = b
	solve b (s:st)
	\| isInfixOf (s : "") b = solve b st
	\| otherwise = solve (s : b) st

	main = do
	line <- getContents
	putStrLn $ reverse $ solve "" line