Isqrt (integer square root) of X: Difference between revisions
m
→{{header|ALGOL-M}}
Line 493:
END
</lang>
But for those whom only the quadratic residue algorithm will do, just substitute this
<lang algol>
% RETURN INTEGER SQUARE ROOT OF N USING QUADRATIC RESIDUE ALGORITHM %
Line 502:
Q := 1;
WHILE Q <= X DO
Q := Q * 4; % WARNING: POSSIBLE OVERFLOW! %
Z := X;
R := 0;
|