Horner's rule for polynomial evaluation: Difference between revisions

→‎Recursive version: avoid relying on evaluation order for +
(→‎{{header|Perl}}: adding recursive version)
(→‎Recursive version: avoid relying on evaluation order for +)
Line 921:
===Recursive version===
<lang perl>sub horner {
return 0 unless my @($coeff, $x) = @{shift()}_;
my @$x =coeff shift;and
shift(@$$coeff)[0] + $x * horner( [@$coeff[1 .. $#$coeff]], $x );
}
1,934

edits