Mensajes

Igual se me ocurren al menos 2 cosas asi rapidamente que no podes hacer con VB:

1. Un modulo de modo Kernel para Windows
2. Un muy simple programa para *NIX

1. Es posible programar Drivers en VB, el compilador lo permite, solo que las cosas se complican en el codigo. Por supuesto siempre sera mas sencillo hacerlo con C o [F/M/N]ASM...
2. Ahi tienes toda la razon, VB no es multiplataforma... Pero... Gambas?

[aggressive mode=on]
Dile a tu amigo que se saque la cabeza del culo y que me diga una sola cosa que el pueda hacer en C y yo no pueda hacer en VB
[aggressive mode=off]

Lo dicho, un lenguaje es tan potente como el programador que lo utiliza.

[MOD]

Dejame comprobar Leandro, algo esta fallando ... alguna modificacion que habre hecho antes de subirlo... dame un segundo...
MOD: Es un problema con el stack, por lo visto las funciones en las clases trabajan de otra manera, ya mismo lo reparo

Arreglado el codigo en ASM, ahora debe ser mas rapida, se salta los numeros impares

Código [Seleccionar] Expandir

http://karcrack.pastebin.com/MUkSE1qs

[Tokes]

a por cierto lo de

n = Sqr(nval)

es solo que nosotros tomamos el valor entero de la raiz, aun que lo "Algebra" esta bien, pero si sabemos que long no va a aceptar los decimales pero si el entero... pues mejor simplificamos xP

Si, bueno, esa parte la habia entendido... pero no se donde se deduce/"saca" eso... a mi jamas se me hubiese ocurrido... tal vez Tokes sepa decirme

Todo el codigo de VB6 se ensambla, porque no puedo añadir yo un par de instrucciones?

Bueno, si no quereis que no valga usar ASM... pero a ver quien hace mas rapido el codigo entonces

[He aqui mi obra maestra:]

He aqui mi obra maestra: (ACTUALIZADO)

Código [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : cIsOblongo
' Author    : Karcrack
' Now       : 17/08/2010 22:59
' Purpose   : Fastest way to know if a number is Pronic
' History   : 17/08/2010 First cut .....................................................
'             18/08/2010 Fixed and skip odd numbers ....................................
' + Info    : http://foro.elhacker.net/programacion_visual_basic/reto_comprobar_si_un_numero_es_oblongopronico-t302373.0.html
'---------------------------------------------------------------------------------------

Option Explicit
Option Base 0

'NTDLL
Private Declare Sub RtlMoveMemory Lib "NTDLL" (Destination As Any, Source As Any, ByVal Length As Long)

Private c_Code(9)       As Currency

Public Function IsOblongo(ByVal lNumb As Long, ByRef n As Long) As Boolean
    ' Will be filled with ASM code later
End Function

Private Sub Class_Initialize()
    Dim i               As Long
    Dim p               As Long

    For i = 0 To 8
        c_Code(i) = CCur(Choose(i + 1, _
                        501112136803166.0373@, 341985116955243.3932@, _
                        -95471687302877.8613@, -837664576038867.3265@, _
                        -452778894006412.4835@, -402254135688842.0366@, _
                        -857247319500392.0127@, 353164454255135.2835@, _
                        -441078304330420.0512@, -802975918502654.77@))
    Next i

    Call RtlMoveMemory(p, ByVal ObjPtr(Me), 4)
    Call RtlMoveMemory(ByVal p + &H1C, VarPtr(c_Code(0)), 4)
End Sub
Codigo ASM utilizado:

Código [Seleccionar] Expandir

http://karcrack.pastebin.com/MUkSE1qs

Resultados de velocidad (i = 0 to 10000):

Código [Seleccionar] Expandir

~2msec


Saludos

Veaaamos:

Código [Seleccionar] Expandir

n*(n+1) = numero_oblongo
numero_oblongo = n² + n
n² + n - numero_oblongo = 0
n = (-1 +- Raiz(1+4*numero_oblongo))/(2)



Esta no seria la forma mas rapida, pero es la unica que comprendo...

Código [Seleccionar] Expandir

Private Function IsOblongoAlgebra(ByVal nVal As Long, ByRef n As Long) As Boolean
   If (nVal And 1) Or (nVal And &H80000000) Then Exit Function

   n = (Sqr(1 + nVal * 4) - 1) / 2
   
   IsOblongoAlgebra = (n * n + n = nVal)
End Function

No veo en que punto n = sqr(nVal) a partir de la ecuacion...


Si quereis saber mas sobre VB6 rapido visitar esta pagina

Código [Seleccionar] Expandir

http://www.xbeat.net/vbspeed/

No habia visto la nueva version de Leandro , buen trabajo

Código [Seleccionar] Expandir

Option Explicit

Dim cT      As New CTiming

Private Sub Form_Load()
Dim i   As Long
Dim n   As Long

    Open "resultados.txt" For Binary As #1
   
    cT.Reset
    For i = 0 To 10000
        Call IsOblongo01(i, n)
    Next i

    Put #1, , "Karcrack -> " & cT.sElapsed & vbCrLf

    cT.Reset
    For i = 0 To 10000
        Call EsOblongo(i, n)
    Next i
    Put #1, , "Tokes -> " & cT.sElapsed & vbCrLf
   
    cT.Reset
    For i = 0 To 10000
        Call IsOblongoLeo2(i, n)
    Next i
    Put #1, , "LeandroA -> " & cT.sElapsed
   
    Close #1
    End
End Sub

' Karcrack
Private Function IsOblongo01(ByVal lNumb As Long, ByRef n As Long) As Boolean
    If (lNumb = 0) Then n = 0: IsOblongo01 = True: Exit Function

    If (lNumb And 1) = 0 Then
        For n = 1 To Sqr(lNumb + 1)
            If lNumb = n * (n + 1) Then
                IsOblongo01 = True
                Exit For
            End If
        Next n
    End If
End Function

'Tokes
Private Function EsOblongo(ByVal num As Long, ByRef n As Long) As Boolean
Dim max As Long, i As Long
    If (num And 1) Then Exit Function

    max = Sqr(num)
    For i = 0 To max
        If num = i * i + i Then 'i * (i + 1) Then
            EsOblongo = True
            n = i
            Exit Function
        End If
    Next
End Function

' LeandroA
Private Function IsOblongoLeo2(ByVal lNumb As Long, ByRef n As Long) As Boolean
    Dim lmax As Long, i As Long

    If (lNumb And 1) Then Exit Function
    If lNumb = 0 Then n = 0: IsOblongoLeo2 = True: Exit Function

    lmax = Sqr(lNumb)

    For i = lmax - 1 To lmax
        If lNumb = i * (i + 1) Then
            IsOblongoLeo2 = True
            n = i
            Exit Function
        End If
    Next
End Function

Código [Seleccionar] Expandir

Karcrack -> 5,514 msec
Tokes -> 5,603 msec
LeandroA -> 1,576 msec

Tokes y yo estamos practicamente empatados.... es tan poco diferencia que a veces adelanto yo a veces el...

[MOD:]

No se como estais calculando los tiempos... en mis calculos mi funcion es la mas rapida

MOD: No useis GetTickCount(), para mas precision usad la Clase CTiming.cls que he puesto en otros retos

MOD2: Acabo de ver que Tokes ha hecho una nueva funcion que no utiliza bucles , como has llegado a la conclusion de que num = (max * max) + max? Donde lo has leeeido!!

[@79137913:]

@79137913: Es mucho mas rapido el primero, siempre trabajar con Bits es mas rapido.