Cyclotomic polynomial: Difference between revisions

m
J: minor "speedup" (not adequately benchmarked)
(J)
m (J: minor "speedup" (not adequately benchmarked))
Line 2,040:
,(y%*/q) {."0 cyclotomic */q
else.
(_1,(-y){.1) pDiv unpad ;+//.@(*/)each/ cyclotomic"0 each}:*/@>,{1,each q
end.
}}
6,962

edits