Code: Select all
sqrt:
rslt = L
div = L
if L <= 0 { ret }
while (1){
div = (L / div + div) / 2
if rslt > div { rslt = div }
else { ret }
}
ret
Example:
Code: Select all
L = 121
sqrt
print("$rslt", 0, 0, BLACK)
Code: Select all
sqrt:
rslt = L
div = L
if L <= 0 { ret }
while (1){
div = (L / div + div) / 2
if rslt > div { rslt = div }
else { ret }
}
ret
Code: Select all
L = 121
sqrt
print("$rslt", 0, 0, BLACK)