Split string by space

splitBySpace.hs

module SplitBySpace (splitBySpace) where

splitBySpaceDone :: ([Char], [[Char]]) -> ([Char], [[Char]])
splitBySpaceDone ("", y) = ("", y)
splitBySpaceDone (x, y) = ("", [x] ++ y)

splitBySpaceAppend :: Char -> ([Char], [[Char]]) -> ([Char], [[Char]])
splitBySpaceAppend a (x, y) = ([a] ++ x, y)

splitBySpaceInternal :: [Char] -> ([Char], [[Char]])
splitBySpaceInternal "" = ("", [])
splitBySpaceInternal (' ' : xs) = splitBySpaceDone (splitBySpaceInternal xs)
splitBySpaceInternal (x : xs) = splitBySpaceAppend x (splitBySpaceInternal xs)

splitBySpace :: [Char] -> [[Char]]
splitBySpace str = snd (splitBySpaceDone (splitBySpaceInternal str))