Cyclotomic polynomial: Difference between revisions
Content added Content deleted
(J) |
m (J: minor "speedup" (not adequately benchmarked)) |
||
Line 2,040: | Line 2,040: | ||
,(y%*/q) {."0 cyclotomic */q |
,(y%*/q) {."0 cyclotomic */q |
||
else. |
else. |
||
(_1,(-y){.1) pDiv |
(_1,(-y){.1) pDiv ;+//.@(*/)each/ cyclotomic each}:*/@>,{1,each q |
||
end. |
end. |
||
}} |
}} |