Anonymous user
Jacobi symbol: Difference between revisions
Adding Haskell version
(Adding Haskell version) |
|||
Line 111:
</pre>
=={{header|Haskell}}==
{{trans|Scheme}}
<lang haskell>jacobi :: Integer -> Integer -> Integer
jacobi 0 1 = 1
jacobi 0 _ = 0
jacobi a n = do
let a_mod_n = rem a n
if even a_mod_n then
case rem n 8 of
1 -> jacobi (div a_mod_n 2) n
3 -> negate $ jacobi (div a_mod_n 2) n
5 -> negate $ jacobi (div a_mod_n 2) n
7 -> jacobi (div a_mod_n 2) n
else
if rem a_mod_n 4 == 3 && rem n 4 == 3 then negate $ jacobi n a_mod_n else jacobi n a_mod_n
</lang>
=={{header|Julia}}==
| |||