Cyclotomic polynomial: Difference between revisions
m
J: fix "skip zero" optimization in pDiv
m (J: minor "speedup" (not adequately benchmarked)) |
m (J: fix "skip zero" optimization in pDiv) |
||
Line 2,053:
'x y'=. x,:y
while. j=. j-1 do.
if. 0={.
q=. q,
x=.
else.
q=. q, r=. x %&{. y
| |||