Zahlen zusammenfassen, nicht addieren

[Dax]

Delphi-Quellcode:

function ConcatNumbers(const a, b: Cardinal): Cardinal;
var tmp: Cardinal;
begin
  tmp:=10;
  while tmp<=b do
    tmp:=tmp*10;
  Result:=a*tmp+b;
end;

So ist es korrekt. T(1, 0) sollte 10 liefern, nicht 1. Ob es so viel bringen würde, tmp durch Result zu ersetzen, weiß ich momentan nicht.

Zitat von 3_of_8:

Laufzeit: T(a, b)=5+lg b=O(log b) falls es interessiert.

Wenn man mit sonst nix spielen kann..