[Haskell-beginners] Partition a list recursively