RosettaCodeData/Task/Polynomial-long-division/Factor/polynomial-long-division.factor
2023-07-01 13:44:08 -04:00

3 lines
70 B
Factor

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