Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Isqrt-integer-square-root-of-X/Mathematica/isqrt-integer-square-root-of-x.math
+++ b/Task/Isqrt-integer-square-root-of-X/Mathematica/isqrt-integer-square-root-of-x.math
@ -0,0 +1,20 @@
+ClearAll[ISqrt]
+ISqrt[x_Integer?NonNegative] := Module[{q = 1, z, r, t},
+  While[q <= x,
+   q *= 4
+   ];
+  z = x;
+  r = 0;
+  While[q > 1,
+   q = Quotient[q, 4];
+   t = z - r - q;
+   r /= 2;
+   If[t >= 0,
+    z = t;
+    r += q
+    ];
+   ];
+  r
+  ]
+ISqrt /@ Range[65]
+Column[ISqrt /@ (7^Range[1, 73])]