[RETO] Funcion iFactorize() - Factorizacion de numeros enteros

[BlackZeroX]

.
Las colecciones jamas me han convencido las veo lentas ¬¬"  mejor un Array vale   

Dulces Lunas!¡.

[Karcrack]

He actualizado mi codigo! , no me ha dado tiempo a comprobar la velocidad, doy por hecho que es mas rapida porque no es recursiva

Lo de las collections es el requisito basico para el reto...

[seba123neo]

Karcrack y a TODOS me gustarian que pongan las caracteristicas de la maquina donde estan probando, procesador y RAM, como para ver en que condiciones se esta probando, yo pruebo el ejemplo de Karcrack compilado obviamente y me da 4 veces mas de tiempo del que pusiste, es una notebook Intel Core 2 Duo 2Ghz y 3 GB de ram, o sea es una "buena" maquina. lo de las Collections quedo claro, BlackZeroX hacelo con Collections, debe haber miles de ejemplos mas rapidos con arrays, pero tiene que devolver lo que se dijo en el primer post y hay que cumplir las reglas  

[Karcrack]

Por decirlo de una forma suave y que se entienda, lo de los collections es porque me sale de los huevos

Pues en el portatil que lo probe tiene un Mobile Intel Pentium M LV, 1200 MHz (12 x 100) y 512MB de RAM... Una mierdecilla...

[Angeldj27]

Hay va la mia

Código (vb) [Seleccionar] Expandir


Public Function FactorizeS(ByVal S As Long) As Collection  
   Dim cTmp    As New Collection
   Dim I       As Long

  If S <= 0 Then GoTo Ret
  If S = 1 Then cTmp.Add 1: GoTo Ret

  For I = 2 To Sqr(S)
       If S Mod I = 0 Then
          cTmp.Add I
      End If
      I = I + 2
  Next I
 
Ret: Set FactorizeS = cTmp
End Function


Claro casimente es una mejora a las otras funciones pero es mas rapida  

[FFernandez]

Hola Angeldj27



                          Prueba factorizar el nº 49.



                                                Un saludo