Tonelli-Shanks algorithm: Difference between revisions

Content added Content deleted

Inline

@@ Line 971: / Line 971: @@
 (de ts (N P)
    (and
-      (= 1 (legendre N P))
+      (=1 (legendre N P))
       (let
          (Q (dec P)
@@ Line 997: / Line 997: @@
                D (**Mod N Q P)
                M S )
-            (loop
+            (until (=1 D)
-               (T (=1 D) (list R (- P R)))
                (zero I)
                (for
@@ Line 1,016: / Line 1,015: @@
                   C (% (* B B) P)
                   D (% (* D C) P)
-                  M I ) ) ) ) ) )
+                  M I ) )
+            (list R (- P R)) ) ) ) )
 (println (ts 10 13))