RosettaCodeData/Task/AKS-test-for-primes/Maple/aks-test-for-primes-2.maple
2015-02-20 09:02:09 -05:00

1 line
55 B
Text

polc := p -> [coeffs]( expand( (x-1)^p - (x^p-1) ) ):