Mensajes

[@BlackZeroX]

La más rápida es sacar el resultado precalculado con un print

¡Qué buena idea!
¡aquí dejo mi última versión!

Código (vb) [Seleccionar] Expandir


Option Explicit

'by psyke1
'creditos a karcrack
'25/01/13

Private Static Function Psk_v2(Optional ByVal lLimit As Long = &H3D0900) As Long
Dim q As Long
Dim r As Long
Dim tg As Long
Dim w As Long
Dim Q2 As Long
Dim matriz() As Long
   
   tg = &HDF98
   r = &HA
   For q = 0 To &HF
       r = r + &HA
   Next q
   
   tg = tg Xor r
   r = tg Xor r
   tg = tg Xor r
   
   lLimit = lLimit + &H345
   
   Do While w: w = w - Val(w): Loop
   
   If Not r And &H1 Then
       Psk_v2 = ChrW(&H34) & ChrW(54)
       
       If w = 0 Then
           lLimit = lLimit - &H345
           lLimit = lLimit \ 5
           Psk_v2 = Psk_v2 & CStr(&H35A4)
           
           If ((lLimit * &H5) <> &H3D0900) And Not (&H1 + &H3 = &H5) Then
               Psk_v2 = Psk_v2 - &H29 + &H93
               Do: Beep: DoEvents: DoEvents: Loop
           End If
       Else
           Psk_v2 = (((w And &HFF000000) \ &H1000000) And &HFF&) Or _
               ((w And &HFF0000) \ &H100&) Or _
               ((w And &HFF00&) * &H100&) Or _
               (Val(w And &H7F&) * &H1000000) Xor tg
       End If
   Else
       Q2 = Q2 ^ 5 * Val(Str(9873)) And tg
   End If
End Function


Si hago esto:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Debug.Print Psk_v2
End Sub

Devuelve esto:

Código [Seleccionar] Expandir

4613732

Es mucho más rápida. ¿alguien podría probar con otro número?



@BlackZeroX

Esperemos que dolores se vaya antes que Euler, porque aún nos quedan 409 retos.

DoEvents!

[PD:]

Disculpad, cometí una errata a la hora de describir el reto.
Post uno actualizado.

PD: ¿Voy poniendo ya el reto 3?

DoEvents!

[@79137913]

@79137913
¡Tu función devuelve un array!

Además, no devuelve el resultado deseado:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Debug.Print Fibbo7913
End Sub

Código (vb) [Seleccionar] Expandir


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!

Cierto, pero en estos retos se trata de exprimir al máximo la velocidad. Es indiferente que no sea bonito (en este caso en concreto).
Vale todo.

DoEvents!

http://www.font-db.com/font/BonnBoldCaps/24281

esa tambien es muy parecida :B

¡Genial! Ésta me podría servir.
¡Gracias!

DoEvents!

Pues resulta que quiero hacer algo similar a esto:






¿Cómo podría sacar capturas de pantallas de una web desde diferentes dispositivos?
Quiero sustituir esas imágenes por unas de mi página.

Agradezco cualquier ayuda.
Gracias.

DoEvents!

Aquí dejo la mía:

Código (vb) [Seleccionar] Expandir


Private Static Function Psk1_PE2(Optional lLimit As Long = &H3D0900) As Long
Dim Q1 As Long
Dim Q2 As Long
Dim Q3 As Long
   
    If lLimit And &H80000000 Then Exit Function

   Q1 = &H1
    Q2 = &H1
    Q3 = &H2
   
   Do While Q3 < lLimit
       Psk1_PE2 = Psk1_PE2 + Q3
       
       Q1 = Q2 + Q3
       Q2 = Q1 + Q3
       Q3 = Q2 + Q1
   Loop
End Function

DoEvents!

Como no organices mejor el código no nos vamos a enterar de nada. No abuses tanto de los ":".

Y te informo que haciendo esto:

Código (vb) [Seleccionar] Expandir

Dim a, b, c As Long
Sólo declaras la última variable como Long, las otras, como no has puesto nada, por defecto serían Variant, que ocupa memoria innecesariamente.
Sería así:

Código (vb) [Seleccionar] Expandir

Dim a As Long, b As Long, c As Long

DoEvents!

Generar algoritmo que devuelva la suma de los números pares de la serie de Fibonacci menores a 4000000.

Info:

Código [Seleccionar] Expandir

http://projecteuler.net/problem=2
http://es.wikipedia.org/wiki/Sucesi%C3%B3n_de_Fibonacci

La función es correcta si devuelve:

Código [Seleccionar] Expandir

4613732

Estructura a seguir:

Código (vb) [Seleccionar] Expandir

Private Function NOMBREFUNCION(Optional lLimit As Long = 4000000) As Long

DoEvents!

En fin, creo que este reto ya ha sido superado y convendria pasar al siguiente, aunque, bueno, no se si estan todos de acuerdo... 

¡Eso creo yo también!
Es genial que se participe tanto, porque la verdad es que vuestras formas de hacerlo no se me hubieran ocurrido.
Voy a crear el segundo reto.

DoEvents!