Isqrt (integer square root) of X: Difference between revisions

Content deleted Content added

Inline

@@ Line 5,726: / Line 5,726: @@
  ´'''ISQRT'''’ STO
 |
- '''ISQRT''' ''( #n --  #√n )''
+ '''ISQRT''' ''( #n -- #sqrt(n) )''
  q ◄── 1
  perform while q <= x
@@ Line 5,739: / Line 5,739: @@
         z ◄── z - u
         r ◄── r + q
- remove u and copy of z from stack
+    else remove u and copy of z from stack
  end perform, clean stack