Cyclotomic polynomial: Difference between revisions

=={{header|C++}}==

{{trans|Java}}

#include <iostream>

#include <initializer_list>

#include <vector>

 

const int algorithm = 2;

int divisions = 0;

 

return 0;

{{out}}

<pre>Task 1: cyclotomic polynomials for n <= 30:

CP[10465] has coefficient with magnitude = 10</pre>

 

{{trans|Java}}

{{works with|C sharp|8}}

using System.Collections;

using System.Collections.Generic;

};

}

{{out}}

<pre>

CP[6545] has coefficient with magnitude = 9

CP[10465] has coefficient with magnitude = 10</pre>

 

=={{header|Go}}==

{{trans|Java}}

 

import (

}

}

 

{{out}}

CP[10465] has coefficient with magnitude = 10

</pre>

 

=={{header|Java}}==

import java.util.ArrayList;

import java.util.Collections;

 

}

{{out}}

<pre>

CP[6545] has coefficient with magnitude = 9

CP[10465] has coefficient with magnitude = 10

</pre>

 

=={{header|Julia}}==

# memoize cache for recursive calls

println("The cyclotomic polynomial Φ(", abs(n), ") has a coefficient that is ", n < 0 ? -i : i)

end

<pre>

First 30 cyclotomic polynomials:

=={{header|Kotlin}}==

{{trans|Java}}

import kotlin.math.abs

import kotlin.math.pow

} else coefficient.toString() + "x^" + exponent

}

{{out}}

<pre>Task 1: cyclotomic polynomials for n <= 30:

CP[6545] has coefficient with magnitude = 9

CP[10465] has coefficient with magnitude = 10</pre>

 

=={{header|Perl}}==

Conveniently, the module <code>Math::Polynomial::Cyclotomic</code> exists to do all the work. An <code>exponent too large</code> error prevents reaching the 10th step of the 2nd part of the task.

use List::Util qw(first);

use Math::Polynomial::Cyclotomic qw(cyclo_poly_iterate);

$n++;

}

{{out}}

<pre>First 30 cyclotomic polynomials:

{{trans|Julia}}

Uses several routines from [[Polynomial_long_division#Phix]], tweaked slightly to check remainder is zero and trim the quotient.

{{out}}

If you disable the cheating, and if in a particularly self harming mood replace it with n+=1, you will get exactly the same output, eventually.<br>

 

=={{header|Python}}==

from collections import deque

 

while want in c or -want in c:

print(f'C[{want}]: {n}')

{{out}}

Only showing first 10 polynomials to avoid clutter.

 

Uses the same library as Perl, so comes with the same caveats.

 

say 'First 30 cyclotomic polynomials:';

sub super ($str) {

$str.subst( / '^' (\d+) /, { $0.trans([<0123456789>.comb] => [<⁰¹²³⁴⁵⁶⁷⁸⁹>.comb]) }, :g)

<pre>First 30 cyclotomic polynomials:

Φ(1) = (x - 1)

 

=={{header|Sidef}}==

for k in (1..30) {

}

 

say "\nSmallest cyclotomic polynomial with n or -n as a coefficient:"

var k = (1..Inf -> first {|k|

})

say "Φ(#{k}) has coefficient with magnitude #{n}"

 

{{out}}

Φ(3135) has coefficient with magnitude = 7

^C

</pre>