Sieb des Erathosthenes

[Uwe Raabe]

Zitat von Bummi:

Delphi-Quellcode:

  for i := primes.Count - 1 downto 0 do
      begin
        for j :=  primes.Count - 1 downto 0 do
          begin
              curri := StrToInt(primes[i]);
              currj := StrToInt(primes[j]);
              if (currj <> curri) and  (currj mod curri = 0)  then
                begin
                   primes.Delete(j);
                end;
          end;
      end;

Das sind mir irgendwie viel zu viele Iterationen.