Чет про программирование / практика / 21) Сложение двух длинных чисел

Сложение двух длинных чисел.

function long_add(a, b: TLongN): TlongN;

var

I, n, j: integer;

Begin

N := length(a);

If length(a) > n then

N := length(b);

SetLength(result, n);

j := 0;

for i := 1 to n-1 do begin

if i <= hign(a) then j := j+ a[j];

if j <= hign(b) then j := j+ b[i];

result[i] := j and mask;

j := j shr base_shift;

end;

if j <> 0 then begin

SetLength(Result, n+1);

Result[n] := j;;

end;

end;