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.
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.