Polynomial derivative: Difference between revisions

Polynomial derivative (view source)

25 bytes added , 2 years ago

m

→‎{{header|Raku}}: trap an edge condition for exponents > 9 (doesn't matter here)

10,333

edits

Revision as of 11:12, 9 November 2021 (view source) Thundergnat (talk \| contribs) (→‎{{header\|Raku}}: Add a Raku example) ← Older edit		Revision as of 11:35, 9 November 2021 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Raku}}: trap an edge condition for exponents > 9 (doesn't matter here)) Newer edit →
Line 135: sub pretty (@poly) { my $p = join '+', (^@poly).reverse.map: { @poly[$_] ~ "x{.&super}" } $p.=subst(/['+'\|'-']'0x'<[⁰¹²³⁴⁵⁶⁷⁸⁹]>/, '-', :g).subst(/^'+x¹'/,<?before ~~'').subst(/'x~~<-[⁰¹'²³⁴⁵⁶⁷⁸⁹]>>/, 'x~~').subst(/'x⁰'/, '~~')\ .subst(/['+x⁰'\|$/, '-']).subst(/'0x+-'<[⁰¹²³⁴⁵⁶⁷⁸⁹]>/, '-', :g).subst(/(['+'\|'-'\|^])'1x'/, {"$0x"}, :g) \|\| 0 }