Hola a todos, los invito a que programen a gusto si un número es perfecto o no.

Cómo funciona un número perfecto?

Un número es perfecto, cuando la SUMA de TODOS sus divisores, evadiendo a si mismo, es igual a ese número.

Ej:

6: 1+2+3 = 6
28: 1+2+4+7+14 = 28
etc

Lista:
6
28
496
8128
33550336
8589869056
137438691328
2305843008139952128

Valoro pensamientos/deducciones propias

HOLA!!!

Hay que crear un verificador de numeros perfectos o un generador?

GRACIAS POR LEER!!!

Es más divertido hacer un generador. Mola mucho programar funciones recursivas

Ya contareis cuanto os tarda en comprobar el último número, lo acabo de hacer en Perl y lo cerré porque mi macTrasto se puso hirviendo.

Mi código, con un par de deducciones que hice

Public Function IsPerfect(ByRef numero As Double) As Boolean
Dim loopc As Double
Dim calc As Double
 
Dim NumStr As String
Dim LastNum As Byte
 
NumStr = CStr(numero)
LastNum = CByte(Mid(NumStr, Len(NumStr), 1))
 
Dim Max As Variant
 
Max = Fix(CDbl(numero) / CDbl(2))
 
If LastNum = 6 Or LastNum = 8 Then
    For loopc = Max To 1 Step -1
        'If numero Mod loopc = 0 Then
        If numero Mod loopc = 0 Then
            calc = calc + loopc
 
            If calc > numero Then
                IsPerfect = False
                Exit Function
            End If
        End If
    Next loopc
End If
 
IsPerfect = (calc = numero)
End Function
 

Modificación.