Prelude golf: what can we learn by rewriting the partition function?

*Partition> partition even [1..10] ([2,4,6,8,10],[1,3,5,7,9]

it's not as simple as it sounds.