Isqrt (integer square root) of X: Difference between revisions
m
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 3,342:
print #f
function IntSqrt(x as decimal) {
do q*=4 : until (q>x)
while q>1
|