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ó

    analyze :: Int -> Either Int Bool

que, per a cada nombre $n\ge1$ 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.

• Test2:   Entrades qualssevol.