Haskell - Nombres pseudoperfectes P92181

Els divisors propis d’un nombre n són tots els divisors positius de n més petits que n. Per exemple, els divisors propis de 20 són 1, 2, 4, 5, i 10. En aquest problema, direm que un nombre és pseudoperfecte si es pot obtenir sumant alguns (o tots) els seus divisors propis. Per exemple, 20 es pseudoperfecte, perquè 1 + 4 + 5 + 10 = 20.

Feu una funció

que, per a cada nombre n≥1 donat,

• si n té més de 12 divisors propis, digui quants en té (amb un Left al Either);
• si n té 12 o menys divisors propis, digui si n és pseudoperfecte o no (amb un Right al Either).

Puntuació

• Test1:  ‍ Entrades amb n menor que 10000.  ‍50 Punts ‍

• Test2:  ‍ Entrades qualssevol.  ‍50 Punts ‍