DavidLee18

main :: IO ()
main = print $ splitArray [1, 2, 3, 7, 2, 4, 5]

splitArray :: [Int] -> ([Int], [Int])
splitArray [] = ([], [])
splitArray (x:xs) | even x = (x:evens, odds)
                  | otherwise = (evens, x:odds)
                  where (evens, odds) = splitArray xs