신데렐라 함수는 어디에 있습니까?

Question

나는 Hackage에서 찾을 수 없기 때문에 작은 함수를 작성했지만 꽤 있어야한다고 확신하고 찾을 수 없다. 누군가가 어딘가에 있는지 알고 있습니까? 에 해당

cinderella :: (a -> Bool) -> [a] -> ([a], [a]) 
cinderella f = foldr (\x (a,b) -> if f x then (x:a,b) else (a,x:b)) ([],[]) 

:

난 당신에게 선물

filterFilter f l = (filter f l, filter (not . f) l) 

을 ...하지만 아마 두 순회하지 않습니다.

Answer 1

partition 기능을 원합니다.