Autor
|
Tema: [RETO] Project Euler 2 (Leído 10,961 veces)
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Demasiados números me servirán para una jaqueca...
Dulces Lunas!¡.
|
|
« Última modificación: 25 Enero 2013, 05:29 am por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Psyke ya ha encontrado la solución óptima, porque tal y como apunta @imoen cada 3er número de Fibonacci es par...
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Aqui una respuesta simple, ando sin time para hacer algo mejor: Private Function Fibbo7913(Optional Limit As Long = 4000000) As Long Dim aux As Long Dim act As Long Dim ant As Long Dim suma As Long ant = 1 act = 1 suma = 1 Do If act And 1 Then suma = suma + act 'operacion binaria que me dice si es par o no aux = act act = act + ant ant = aux Loop While act < Limit Fibbo7913 = suma End Function
P.D: esto me hace recordar a: [RETO] IsFibonacciNumber(N as long)GRACIAS POR LEER!!!
|
|
« Última modificación: 25 Enero 2013, 13:43 pm por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
imoen
Desconectado
Mensajes: 1.589
|
Hola Bueno os comento Nadie me hace caso usar un array de 3 elementos 79137913-> codigo muy clarito y funcional , Psyke1-> premiooo, es el código mas rápido seguramente , lo del aspersan eran punteros ?¿?¿ que no me acuerdo muy bien jeje, jeje al menos me ha hecho caso con la numeración par xDD rob114->[quotecomo ni a mí ni a mi core 2 duo nos importa la velocidad][/quote] , deberia de importar , y has abierto el cajon Y si aplicamos recursividad a este reto ?¿ Al final veo que me instalo el visual basic XDD otro reto mas y lo tengo que poner ehh xDD bs imoen
|
|
|
En línea
|
Medion Akoya p6624 i-3 370 8 gigas DDR 3 RAM //750 hd 5400 gforce gt425 optimus XDD Esta es mi casa, mi pueblo , o lo que queda de el aun asi lucharemos ... POR BENALIA....!!
srta imoen
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
@79137913¡Tu función devuelve un array! Además, no devuelve el resultado deseado: Private Sub Form_Load() Debug.Print Fibbo7913 End Sub
524288 '// debería de ser: 4613732
También recuerdo que debe de funcionar correctamente contemplando todas las posibilidades. @imoen¿Un array de 3 elementos? ¿Qué conseguiríamos con eso? Lo del &H sirve para indicar que el número que va a continuación está en base 16. Y la recursividad está bien para ahorrar código, pero es leeeenta... DoEvents!
|
|
« Última modificación: 25 Enero 2013, 13:03 pm por Psyke1 »
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Psyke1: Tenes razon, habia un error en mi procedimiento, al corregirlo me di cuenta que el procedimiento de todos estaba errado tambien, dejo mi funcion actualizada en el primer post. Aclaro aca bien cual es el resultado correcto (que no es el que decis vos por que tiene que ser menor al limite.)
Generar algoritmo que devuelva la suma de los números de la serie de Fibonacci, y esa suma sea menor a 4000000. PSYKE1 TRADUCI BIEN
RTA correcta: 3524577
GRACIAS POR LEER!!!
|
|
« Última modificación: 25 Enero 2013, 13:40 pm por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Segun las soluciones es 4613732esta es la formula de la mio. B=2 A=Ax4+B B=Aobviamente tengo que conocer el limite para obtener bien el resultado. Igual aquí dejo uno mas valido. ActualizadoPrivate Function fb(Optional lLimit As Long = 4000000) As Long Dim fn As Long, f1 As Long, f2 As Long If lLimit And &H80000000 Then Exit Function f1 = 1 f2 = f1 Do While f2 < lLimit fn = f1 + f2 f1 = f2 f2 = fn If fn Mod 2 = 0 Then fb = fb + fn End If Loop End Function
Saludos
|
|
« Última modificación: 25 Enero 2013, 14:02 pm por Danyfirex »
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Disculpad, cometí una errata a la hora de describir el reto. Post uno actualizado. PD: ¿Voy poniendo ya el reto 3? DoEvents!
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Disculpad, cometí una errata a la hora de describir el reto. Post uno actualizado. PD: ¿Voy poniendo ya el reto 3? DoEvents! Yo creo que si.
|
|
|
En línea
|
|
|
|
seba123neo
|
la solucion mas rapida en cualquier lenguaje, es precargar los numeros ya calculados en un array y simplemente recorrer este y sumar los pares.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Projecto Euler problema 12
Ejercicios
|
lDanny
|
5
|
5,436
|
16 Octubre 2010, 04:33 am
por [L]ord [R]NA
|
|
|
[RETO] Project Euler 1
« 1 2 3 4 5 »
Programación Visual Basic
|
Psyke1
|
42
|
21,681
|
26 Enero 2013, 11:20 am
por imoen
|
|
|
[RETO] Project Euler 3
« 1 2 »
Programación Visual Basic
|
Psyke1
|
13
|
6,976
|
3 Febrero 2013, 20:45 pm
por imoen
|
|
|
[RETO] Project Euler 4
« 1 2 »
Programación Visual Basic
|
Psyke1
|
10
|
6,109
|
4 Febrero 2013, 23:32 pm
por imoen
|
|
|
Ayuda con el calculo de Pi por la Serie de Euler
Programación C/C++
|
Rollingman216
|
3
|
2,203
|
24 Agosto 2017, 04:09 am
por engel lex
|
|