Arithmetic derivative: Difference between revisions
m
→{{header|Perl}}: avoid special-case for zero
m (→{{header|J}}) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: avoid special-case for zero) |
||
Line 238:
use bigint;
no warnings 'uninitialized';
use List::Util
use ntheory 'factor';
Line 244:
sub D ($n) {
my
map { $s += $nabs * $f{$_}
$n > 0 ? $s : -$s;
}
| |||