TBigUInt - Noch ein Datentyp für große Zahlen

Neutral General

Hi,

Also ich wage mich dann mal mit meiner TBigUInt Unit auf den "Markt"

Das Projekt ist aus rein privatem Interesse entsprungen, von daher ggf nicht besonders konkurrenzfähig.
Aber ich denke für den ein oder anderen mit Delphi2006 oder höher könnte TBigUInt trotzdem ganz interessant sein.

Vorraussetzungen

Delphi 2006 (wegen class operatoren u.a.)

Features

Leichte Einbindung
Potenziell beliebig große Zahlen
Kann wie jeder andere Datentyp auch benutzt werden
Unterstützt alle gängigen Integeroperationen. (+,-,*,div,mod,and,or,xor,shl,shr,<,>,<=,>=,=,<>)
Implizite Umwandlung von Cardinal,Word,Byte nach TBigUInt
Explizite Umwandlung von TBigUInt nach Cardinal
Inklusive kleiner Funktionssammlung (Min,Max,IntToStr,StrToInt,Power)
NUR natürliche Zahlen! (TBigUInt)

"Bugs"

IntToStr ist bei größeren Zahlen noch recht langsam. Für 256^40 benötigt mein IntToStr ganze 2 1/2 Sekunden. Das wird bei Gelegenheit aber noch verbessert
Ich habe alle Methoden und Operationen so effizient implementiert wie es mir im Moment möglich war. Das heißt aber nicht, dass es nicht besser geht. Es geht sicherlich besser.
Rechenfehler DÜRFTEN nicht (mehr) auftreten. Würde aber nicht um Geld wetten, dass sowas nicht vorkommen kann. Wenn jemandem sowas auffällt, dann einfach Bescheid sagen. Ich werde mich drum kümmern.

Beispiele

zusammenfalten · markieren

Delphi-Quellcode:

			uses BigUInt;

// Eine Funktion die die Fakultät einer Zahl berechnet

function Fak(n: TBigUInt): TBigUInt;

begin

  if (n = 0) or (n = 1) then

    Result := 1

  else

    Result := n*Fak(n-1);

end;

// Zum Vergleich die gleiche Funktion für den normalen Cardinaldatentyp

function Fak(n: Cardinal): Cardinal;

begin

   if (n = 0) or (n = 1) then

    Result := 1

  else

    Result := n*Fak(n-1);

end;

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var a: TBigUInt;

begin

  a := Power(1024,100);    // Überladene Power-Funktion aus der Math-Unit (Math muss nicht extra eingebunden werden)

  Caption := IntToStr(a);  // Überladenes IntToStr für TBigUInts. ACHTUNG: Das da kann recht lange dauern

                           // weil IntToStr wie gesagt noch etwas langsam ist.

end;

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var a,b: TBigUInt;

begin

  a := StrToInt('1234567891011121314151617181920');

  b := StrToInt('98765432109876543210541');

  Caption := IntToStr(Min(a,b));

end;

Viel Spaß mit der Unit. Freue mich schon auf Kritik. Vorallem auf (hoffentlich auch) positive

Gruß
Neutral General

**Corpsman**

also anhären tut sich dein Teil ja toll, nur leider kann ichs mit D5Pro nicht testen, schade.

**mkinzler**

Zitat von Corpsman:

also anhären tut sich dein Teil ja toll, nur leider kann ichs mit D5Pro nicht testen, schade.

D% ist auch nicht D2006 oder höher

Zitat:

Aber ich denke für den ein oder anderen mit Delphi2006 oder höher könnte TBigUInt trotzdem ganz interessant sein.

**sirius**

Anstatt StrToInt oder IntToStr kannst du doch auch eine direkte Umwandlung von und nach String in den Record implementieren, oder? Dadurch geht dann folgendes:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject); 

var a,b: TBigUInt; 

begin 

  a := '1234567891011121314151617181920'; 

  b := '98765432109876543210541'; 

  Caption := Min(a,b); 

end;

**Neutral General**

Hi,

Ja das ginge durchaus. Aber die schreibweise ist halt unüblich und kann eventuell vorallem bei Anfängern für Verwirrung oder Missverständnisse sorgen. Zahlen sind halt keine Strings. Aber falls die breite Masse implizite Konvertierung von String nach TBigUInt fordern sollte, so würde ich dem meinetwegen auch nachkommen. Eventuell

**Elvis**

Zitat von sirius:

Anstatt StrToInt oder IntToStr kannst du doch auch eine direkte Umwandlung von und nach String in den Record implementieren, oder? Dadurch geht dann folgendes:

Sowas ist aber Mist.
Denn dann meckert der Komposter nicht mehr, wenn man einen wahllosen String zuweist.
.Net liefert hier schon ein IMHO hübsches pattern für solche Umwandlungen:a := TBigUInt.Parse('123'); und/oder
if not TBigUInt.TryParse('123', out a) then ...

**gammatester**

Na ja?! Auch wenn ich es mangels Compiler nicht testen kann, fällt doch sofort eine Inkonsequenz auf: Wenn a < b ist, soll a - b = 0 ein. Das ist ja wohl mathematisch nicht ganz korrekt :) Wenn DU Dich auf positive Zahlen beschränken willst, solltest Du wie bei a/0 eine Exception benutzen.

**Neutral General**

Zitat von gammatester:

Na ja?! Auch wenn ich es mangels Compiler nicht testen kann, fällt doch sofort eine Inkonsequenz auf: Wenn a < b ist, soll a - b = 0 ein. Das ist ja wohl mathematisch nicht ganz korrekt

Wenn DU Dich auf positive Zahlen beschränken willst, solltest Du wie bei a/0 eine Exception benutzen.

Mh ja.. Hast da schon Recht... Andererseits würde es mich schon irgendwie aufregen wenn ich bei jeder Rechnung wo (aus Versehen) etwas < 0 rauskommt ne Exception an den Kopf geschmissen bekomme. Bei anderen Datentypen kommt man ja wieder "oben" raus wenns kleiner als 0 wäre, was mathematisch ja auch nicht ganz korrekt ist.

Aber ich bin sowieso am überlegen ob ich nicht noch negative Zahlen einbauen soll. Ich glaube das wäre nicht so viel Arbeit.

**himitsu**

Das IntToStr müßte man auch kürzen können ...
zumindestens die 0-Prüfung vorher ist nicht sooo wichtig, wenn man die Schleife andersrum (als Repeat-Until) definiert
und ich hoffe beim Format hab ich den richtigen Parameter gewählt.

zusammenfalten · markieren

Delphi-Quellcode:

			function IntToStr(Value: TBigUInt): String;

var tmp: TBigUInt;

begin

  repeat

    tmp   := Value mod 1000000000;

    Value := Value div 1000000000;

    if Value <> 0 then 

      Result := Format('%.9d%s', [tmp[0], Result])

    else Result := Format('%d%s', [tmp[0], Result]);

  until Value = 0;

end;

Und wozu war eigentlich das [/i]tmp:=Value;[/i] vor der Schleife?

ansonsten kannst auch gern mal nach Hier im Forum suchen

TBigInt und Hier im Forum suchen

MiniMathLib schauen
- TBitInt ist in etwa sowas wie Deines
- und die MiniMathLib ist sowas wie eine erweiterbare Masterklasse für solche Datentypen

hab leider nicht so die Zeit daran weiterzuarbeiten (sind halt nur kleine Spielereinen für Nebenbei

)

**Neutral General**

Zitat von himitsu:

Das IntToStr müßte man auch kürzen können ...
zumindestens die 0-Prüfung vorher ist nicht sooo wichtig, wenn man die Schleife andersrum (als Repeat-Until) definiert

Ja stimmt schon, könnte man auch mit repeat-until machen.

Zitat von himitsu:

Und wozu war eigentlich das [/i]tmp:=Value;[/i] vor der Schleife?

ehhm... Das war für... also...als Dekoration

Zitat von himitsu:

ansonsten kannst auch gern mal nach Hier im Forum suchen

TBigInt und Hier im Forum suchen

MiniMathLib schauen

Ich muss gestehen, dass meine Addition (und Subtraktion z.T) von jener der TBigInt Klasse inspiriert wurde

Also ich habe mir angeschaut wie es da gemacht wurde.

Corpsman Delphi XE2 Professional	#2 26. Mai 2009, 07:50 also anhären tut sich dein Teil ja toll, nur leider kann ichs mit D5Pro nicht testen, schade. Uwe
	Zitat

mkinzler Delphi 11 Alexandria	#3 26. Mai 2009, 07:55 Zitat von Corpsman: also anhären tut sich dein Teil ja toll, nur leider kann ichs mit D5Pro nicht testen, schade. D% ist auch nicht D2006 oder höher Zitat: Aber ich denke für den ein oder anderen mit Delphi2006 oder höher könnte TBigUInt trotzdem ganz interessant sein. Markus Kinzler
	Zitat

sirius Delphi 7 Enterprise	#4 26. Mai 2009, 08:51 Anstatt StrToInt oder IntToStr kannst du doch auch eine direkte Umwandlung von und nach String in den Record implementieren, oder? Dadurch geht dann folgendes: markieren Delphi-Quellcode: procedure TForm1.Button1Click(Sender: TObject); var a,b: TBigUInt; begin a := '1234567891011121314151617181920'; b := '98765432109876543210541'; Caption := Min(a,b); end;
	Zitat

Neutral General Delphi 10.2 Tokyo Professional	#5 26. Mai 2009, 09:29 Hi, Ja das ginge durchaus. Aber die schreibweise ist halt unüblich und kann eventuell vorallem bei Anfängern für Verwirrung oder Missverständnisse sorgen. Zahlen sind halt keine Strings. Aber falls die breite Masse implizite Konvertierung von String nach TBigUInt fordern sollte, so würde ich dem meinetwegen auch nachkommen. Eventuell Michael
	Zitat

gammatester	#7 26. Mai 2009, 09:36 Na ja?! Auch wenn ich es mangels Compiler nicht testen kann, fällt doch sofort eine Inkonsequenz auf: Wenn a < b ist, soll a - b = 0 ein. Das ist ja wohl mathematisch nicht ganz korrekt :) Wenn DU Dich auf positive Zahlen beschränken willst, solltest Du wie bei a/0 eine Exception benutzen.
	Zitat

TBigUInt - Noch ein Datentyp für große Zahlen

Forumregeln