Polynomial derivative: Difference between revisions

</pre>

=={{header|Wren}}==

<lang ecmascript>var derivative = Fn.new { |p|

if (p.count == 1) return [0]

var d = p[1..-1].toList

for (i in 0...d.count) d[i] = p[i+1] * (i + 1)

return d

}

System.print("The derivatives of the following polynomials are:")

var polys = [ [5], [4, -3], [-1, 6, 5], [-4, 3, -2, 1], [1, 1, 0, -1, -1] ]

for (poly in polys) {

var deriv = derivative.call(poly)

System.print("%(poly) -> %(deriv)")

}</lang>

{{out}}

<pre>

The derivatives of the following polynomials are:

[5] -> [0]

[4, -3] -> [-3]

[-1, 6, 5] -> [6, 10]

[-4, 3, -2, 1] -> [3, -4, 3]

[1, 1, 0, -1, -1] -> [1, 0, -3, -4]