12 lines
347 B
Text
12 lines
347 B
Text
say "First 30 cyclotomic polynomials:"
|
|
for k in (1..30) {
|
|
say ("Φ(#{k}) = ", cyclotomic(k))
|
|
}
|
|
|
|
say "\nSmallest cyclotomic polynomial with n or -n as a coefficient:"
|
|
for n in (1..10) { # slow
|
|
var k = (1..Inf -> first {|k|
|
|
cyclotomic(k).coeffs.any { .tail.abs == n }
|
|
})
|
|
say "Φ(#{k}) has coefficient with magnitude #{n}"
|
|
}
|