Select Code to Download

my @poly_coeffs = (0) x ($n + 1) ;
$poly_coeffs[0]++ ;

my @poly_coeffs = map !$_+0, 0..$n;

my @poly_coeffs = (1, (0) x $n);