Polynomial derivative: Difference between revisions
Added XPL0 example.
Thundergnat (talk | contribs) m (→{{header|Raku}}: show encoded representation as well as long form polynomial) |
(Added XPL0 example.) |
||
Line 229:
Polynomial : -x⁴-x³+x+1
Derivative : -4x³-3x²+1
</pre>
=={{header|XPL0}}==
<lang XPL0>int IntSize, Cases, Case, Len, Deg, Coef;
[IntSize:= @Case - @Cases;
Cases:=[[ 5],
[ 4, -3],
[-1, 6, 5],
[-4, 3, -2, 1],
[ 1, 1, 0, -1, -1],
[ 0]];
for Case:= 0 to 5-1 do
[Len:= (Cases(Case+1) - Cases(Case)) / IntSize;
for Deg:= 0 to Len-1 do
[Coef:= Cases(Case, Deg);
if Deg = 0 then Text(0, "[")
else [IntOut(0, Coef*Deg);
if Deg < Len-1 then
Text(0, ", ");
];
];
Text(0, "]^M^J");
];
]</lang>
{{out}}
<pre>
[]
[-3]
[6, 10]
[3, -4, 3]
[1, 0, -3, -4]
</pre>
| |||