Revision as of 12:18, 27 October 2017 (view source) Mihailp (talk \| contribs) (add PicoLisp) ← Older edit		Revision as of 13:21, 27 October 2017 (view source) Mihailp (talk \| contribs) m (→‎{{header\|PicoLisp}}) Newer edit →
Line 971: (de ts (N P) (and (= 1 (legendre N P)) (let (Q (dec P) 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 ⟶ 1,015: C (% ( B B) P) D (% (* D C) P) M I ~~) ) ) )~~ ) ) ▲ ~~(T (=1 D)~~ (list R (- P R)) ) ) ) ) (println (ts 10 13))

Tonelli-Shanks algorithm: Difference between revisions

Tonelli-Shanks algorithm (view source)