Jacobi symbol: Difference between revisions
no edit summary
No edit summary |
|||
Line 883:
return if (n == 1) result else 0
}</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>TableForm[Table[JacobiSymbol[n, k], {n, 1, 17, 2}, {k, 16}],
TableHeadings -> {ReplacePart[Range[1, 17, 2], 1 -> "n=1"],
ReplacePart[Range[16], 1 -> "k=1"]}]</lang>
{{out}}
Produces a nicely typeset table.
=={{header|Nim}}==
| |||