Userbase

Code: Selecteer alles

C:\Documents and Settings\PowerSoft\Bureaublad\demo\demo\primes>primes 1000000
Primes 2003
-----------

Zoek priemgetallen tot 1000000
1671,875

C:\Documents and Settings\PowerSoft\Bureaublad\demo\demo\primes>java Primes 1000
000
Primes 2003
-----------

Zoek priemgetallen tot 1000000
3532

Code: Selecteer alles

using System;

class Primes
{
   public static void Main(string[] args)
   {
      Console.WriteLine("Primes 2003");
      Console.WriteLine("-----------\n");

      int to;
      try {
         to = int.Parse(args[0]);
      }
      catch {
         return;
      }

      Console.WriteLine("Zoek priemgetallen tot {0}",to);

      DateTime start = DateTime.Now;

      Primes p = new Primes();
      int[] res = p.getPrimes(to);

      //foreach (int i in res)
      //   Console.WriteLine(i);

      TimeSpan time = DateTime.Now - start;

      Console.WriteLine(time.TotalMilliseconds);
   }

   public int[] getPrimes(int to)
   {
      int[] res = new int[to];

      int n = 0;
      for (int i = 2; i < to; i++)
         if (isPrime(i))
            res[n++] = i;

      int[] result = new int[n];
      Array.Copy(res,0,result,0,n);

      return result;
   }

   public bool isPrime(int n)
   {
      for (int i = 2; i < (int) Math.Sqrt(n); i++)
         if (n % i == 0)
            return false;
      return true;
   }
}

Code: Selecteer alles

class Primes
{
   public static void main(String[] args)
   {
      System.out.println("Primes 2003");
      System.out.println("-----------\n");

      int to;
      try
      {
         to = Integer.parseInt(args[0]);
      }
      catch (Exception ex)
      {
         return;
      }

      System.out.println("Zoek priemgetallen tot " + to);

      long start = System.currentTimeMillis();

      Primes p = new Primes();
      int[] res = p.getPrimes(to);

      //for (int i = 0; i < res.length; i++)
      //   System.out.println(res[i]);

      long end = System.currentTimeMillis();

      System.out.println(end - start);
   }

   public int[] getPrimes(int to)
   {
      int[] res = new int[to];
      int n = 0;
      for (int i = 2; i < to; i++)
         if (isPrime(i))
            res[n++] = i;

      int[] result = new int[n];
      for (int i = 0; i < n; i++)
         result[i] = res[i];

      return result;
   }

   public boolean isPrime(int n)
   {
      for (int i = 2; i < (int) Math.sqrt(n); i++)
         if (n % i == 0)
            return false;
      return true;
   }
}

Code: Selecteer alles

Imports System

Class Primes
   Shared Sub Main(args As String())
      Console.WriteLine("Primes 2003")
      Console.WriteLine("-----------")
      Console.WriteLine()

      Dim tot As Integer
      Try
         tot = Integer.Parse(args(0))
      Catch
         Return
      End Try

      Console.WriteLine("Zoek priemgetallen tot {0}",tot)

      Dim start As DateTime = DateTime.Now

      Dim p As Primes = new Primes()
      Dim res As Integer() = p.getPrimes(tot)

      Dim time As TimeSpan = DateTime.Now.Subtract(start)

      Console.WriteLine(time.TotalMilliseconds)
   End Sub

   Public Function getPrimes(tot As Integer) As Integer()
      Dim res(tot) As Integer

      Dim n As Integer = 0
      Dim i As Integer
      For i = 2 To tot
         If isPrime(i) Then
            res(n) = i
            n = n + 1
         End If
      Next

      Dim result(n) As Integer
      Array.Copy(res,0,result,0,n)

      Return result
   End Function

   Public Function isPrime(n As Integer) As Boolean
      Dim i As Integer
      For i = 2 To CInt(Math.Sqrt(n))
         If n Mod i = 0 Then
            Return False
         End If
      Next

      Return True
   End Function
End Class