Derivative by tybalt89

#!perl -lp
s/\bx/1x/g;$_=join('+',map/x\^/?$_*$'.$&.($'-1):$_+0,/.*?x.?-?[\d.]*/g)||0;s/\+\B|\^1|\b1(?=x)//g

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page