Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 09:11, 6 April 2014
, 10 years ago→{{header|Perl}}: adding Perl as a comment in sub-titles so it shows up in summaries
(Updated last D entry) |
(→{{header|Perl}}: adding Perl as a comment in sub-titles so it shows up in summaries) |
||
Line 956:
say horner @coeff, $x;</lang>
===<!-- Perl -->Functional version===
<lang perl>use strict;
use List::Util qw(reduce);
Line 969:
print horner(\@coeff, $x), "\n";</lang>
===<!-- Perl -->Recursive version===
<lang perl>sub horner {
my ($coeff, $x) = @_;
|