Polynomial derivative: Difference between revisions

Content added Content deleted

Inline

@@ Line 135: / Line 135: @@
 sub pretty (@poly) {
     my $p = join '+', (^@poly).reverse.map: { @poly[$_] ~ "x{.&super}" }
-    $p.=subst(/'+-'/, '-', :g).subst(/^'+'/, '').subst(/'x¹'/, 'x').subst(/'x⁰'/, '')\
+    $p.=subst(/['+'|'-']'0x'<[⁰¹²³⁴⁵⁶⁷⁸⁹]>*/, '', :g).subst(/'x¹'<?before <-[⁰¹²³⁴⁵⁶⁷⁸⁹]>>/, 'x')\
-    .subst(/['+'|'-']'0x'<[⁰¹²³⁴⁵⁶⁷⁸⁹]>*/, '', :g).subst(/(['+'|'-'|^])'1x'/, {"$0x"}, :g) || 0
+    .subst(/'x⁰'$/, '').subst(/'+-'/, '-', :g).subst(/(['+'|'-'|^])'1x'/, {"$0x"}, :g) || 0
 }