Isqrt (integer square root) of X: Difference between revisions
→{{header|MAD}}: Change this to use the quadratic residue method
Not a robot (talk | contribs) (Add CLU) |
Not a robot (talk | contribs) (→{{header|MAD}}: Change this to use the quadratic residue method) |
||
Line 2,142:
=={{header|MAD}}==
<lang MAD> NORMAL MODE IS INTEGER
Line 2,151 ⟶ 2,148:
INTERNAL FUNCTION(X)
ENTRY TO ISQRT.
R = 0
FNDRT WHENEVER Q.G.1
Q = Q / 4
T = Z - R - Q
R = R / 2
WHENEVER T.GE.0
Z = T
R = R + Q
END OF CONDITIONAL
TRANSFER TO FNDRT
END OF CONDITIONAL
FUNCTION RETURN R
END OF FUNCTION
| |||