Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 03:03, 4 March 2014
, 10 years ago→{{header|Perl}}: adding recursive version
(+ МК-61) |
(→{{header|Perl}}: adding recursive version) |
||
Line 918:
my $x = 3;
print horner(\@coeff, $x), "\n";</lang>
===Recursive version===
<lang perl>sub horner {
return 0 unless my @coeff = @{shift()};
my $x = shift;
shift(@coeff) + $x * horner( [@coeff], $x );
}
print horner( [ -19, 7, -4, 6 ], 3 );</lang>
=={{header|Perl 6}}==
|