Otra sorpresa

Pues si, siguiendo el consejo de tayoken he cogido el programa de los primos en C++ y lo he pasado a VB.NET.

Este proyecto Visual Basic se trata igual que la versión de C++ de una aplicación de consola.

La ejecución para el límite de 100 millones ha tardado en VB.NET 10 minutos 21 segundos. Una gran sorpresa ya que en Visual C++ con las opciones de compilación por defecto había tardado 14 minutos 26 segundos.

No soy el primero que se sorprende. Por ejemplo aquí les ha pasado lo mismo.

Después de unos pocos ajustes de configuración en las propiedades del proyecto he conseguido reducir la ejecución a 10 minutos 46 segundos pero no es suficiente.

Para empezar, se ha comprobador que no están habilitadas las extensiones administradas. No es un proyecto CLR (opción /clr del compilador), o sea que no está orientado al Common Language Runtime.

Las opciones que he tocado son:

Propiedades de configuración, General, Optimización de todo el programa: SI
Propiedades de configuración, C/C++, Optimización: Máxima velocidad
Propiedades de configuración, C/C++, Optimizaciones globales: SI
Propiedades de configuración, C/C++, tamaño o velocidad: ninguno (no se puede seleccionar velocidad si hemos marcado antes Optimización de todo el programa).
Propiedades de configuración, C/C++, Optimizar para procesador: Pentium4 y superior.
Propiedades de configuración, C/C++, Generación de código: Valor predeterminado (las otras opciones no son compatibles con la opción de "Maximizar velocidad".
Propiedades de configuración, C/C++, General, Formato de la información de depuración: Deshabilitado (no es compatible con la opción /gl).

Mañana intentaremos que Visual C++ gane por fin a Visual Basic.NET

Saludos.

Imports System.io
Module Module1

    Sub Main()
        Dim horaComienzo As Date
        Dim fichero As New StreamWriter("primos.txt")
        horaComienzo = Now
        Dim candidato As Integer = 5
        Dim pruebaDivisor As Integer
        Dim esPrimo As Boolean
        Dim numPrimos As Integer = 2
        Dim limiteSuperior As Integer
        Console.Write("Introduce el limite al que llegar: ")
        limiteSuperior = Console.ReadLine
        fichero.WriteLine("2")
        fichero.WriteLine("3")
        While candidato <= limiteSuperior
            pruebaDivisor = 5
            esPrimo = True
            While pruebaDivisor * pruebaDivisor <= candidato
                If candidato Mod pruebaDivisor = 0 Then
                    esPrimo = False
                    Exit While
                End If
                pruebaDivisor += 2
            End While
            If esPrimo Then
                fichero.WriteLine(candidato)
            End If
            candidato += 2
            pruebaDivisor = 5
            esPrimo = True
            While (pruebaDivisor * pruebaDivisor <= candidato)
                If (candidato Mod pruebaDivisor) = 0 Then
                    esPrimo = False
                    Exit While
                End If
                pruebaDivisor += 2
            End While
            If esPrimo Then
                fichero.WriteLine(candidato)
            End If
            candidato += 4
        End While
        fichero.Write("Hora de comienzo:")
        fichero.WriteLine(horaComienzo)
        fichero.WriteLine("Hora de final:")
        fichero.WriteLine(Now)
        fichero.Close()
        Console.Write("Fin")
        Console.Read()
    End Sub
End Module