Laufzeitoptimierung eines Consolen-Programms

[Uwe Raabe]

Zitat von Andreas13:

Wolfgang Ehrhardt's mp_int hat dagegen eine variable Länge und daher einen größeren Overhead.

Dazu sagt Wikipedia:

Zitat:

Arbitrary precision is used in applications where the speed of arithmetic is not a limiting factor, or where precise results with very large numbers are required.

Zitat von Andreas13:

Würde man die Zahlen lediglich um einige Stellen verlängern, wären solche Programmiersprachen, die maximal U256 bieten, von vornherein aus dem Rennen. Hingegen kann Wolfgang Ehrhardt's mp_int bis mehrere Millionen Stellen & mehr mithalten.

Bei Benchmarks ist es aber allgemein so, dass Performance vor Flexibilität geht - ansonsten bräuchte man keinen Benchmark. Da geht es insbesondere auch nicht um schönen oder wartbaren Code, wobei ich persönlich den Code in einer Lösung mit Rudy's BigNumbers auch schöner finde - ist halt auch wieder langsamer.

Delphi-Quellcode:

program matheplanet_projekt3;
{$APPTYPE CONSOLE}
uses
  System.SysUtils,
  Velthuis.BigIntegers;

var
  a, b, soll, sub, produkt, filter: BigInteger;
  Time1: TDateTime;
  nn, nad, nsu: integer;

begin
  Writeln('hyperG-Problem');
  Writeln;
  nad:=0;
  nsu:=0;
  a := BigInteger.Parse('170141183460469231731687303715884105757');
  b := BigInteger.Parse('170141183460469231731687303715884105703');
  soll := BigInteger.Parse('57896044618658097711785492504343953926634992332820282019728792003956564819968');
  sub := BigInteger.Parse('11111111111111111111111111111111111111111111111111111111111111111111111111111');
  filter := BigInteger.Parse('340282366920938463463374607431768211455');
  time1 := now;
  for nn:=1 to 25000000 do begin
    produkt := a*b;
    while produkt < soll do begin
      produkt := produkt + sub;
      inc(nad);
    end;
    repeat
      produkt := produkt - sub;
      inc(nsu);
    until produkt < soll;
    a := produkt shr 128;
    b := produkt and filter;
  end;
  Writeln(FormatDateTime('SS:ZZZ', now - Time1));
  Writeln(produkt.ToString);
  Writeln(nad);
  Writeln(nsu);
  Writeln;
  Writeln('Programmende mit ENTER');
  readln;
end.