RosettaCodeData/Task/Polynomial-long-division/Factor/polynomial-long-division.factor
2019-09-12 10:33:56 -07:00

3 lines
70 B
Factor

USE: math.polynomials
{ -42 0 -12 1 } { -3 1 } p/mod ptrim [ . ] bi@