Jacobi symbol: Difference between revisions
Content deleted Content added
→{{header|REXX}}: added the REXX computer programming language for this task. |
m →{{header|REXX}}: simplified code, aligned some statements, added comments. |
||
Line 253:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
hdrs: @.1= 'n/a ║';
@.2= '════╬';
/*──────────────────────────────────────────────────────────────────────────────────────*/
jacobi: procedure; parse arg a,n; er= '***error***'; result = 1
if n//2==0 then do; say
end
a= a // n /*in REXX, // is modulus for non-neg A*/
do while a\==0 /*perform while A isn't zero. */
Line 273 ⟶ 271:
end
parse value a
if a//4==3 & n//4==3 then result= -result
a= a // n
|