Jacobi symbol: Difference between revisions

Content added Content deleted
(Added Perl example)
Line 123: Line 123:
end
end
a, n = n, a
a, n = n, a
(a % 4 == 3) && (n % 4 == 3) && (result *= -1)
(a % 4 == n % 4 == 3) && (result *= -1)
a %= n
a %= n
end
end