[Haskell-beginners] Solution to problem 17 (99 Haskell problems)‏

Hello, I am wondering, is this solution acceptable to the question 17 ? ( https://www.haskell.org/haskellwiki/99_questions/11_to_20) code: split :: [a] -> Int -> ([a], [a]) split xs y = fst (mapAccumL (\a b -> (let f = fst a s = snd a l = length f in if l < y then (f ++ [b], s) else (f, s ++ [b]), b)) ([],[]) xs) Also, any inputs are welcome (indentation, misuse of something) Best regards, Jean Lopes