Polynomial long division: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Line 1,427:
[(< N D) (values 0 n)]
[else (define c (/ (lead n) (lead d)))
(define q (monoe (- N D) c))
(define rq (poly-mono n (poly*cx^ne c (- N D) d)))
;(define nr =(poly- dn (poly*cx^n qc +e rd)))
(conddefine-values [(<q1 r1) (degpoly/ r) Dd) (values q r)]
[else (define-values (poly+ q q1) r1) (poly/ r d]))
(values (poly+ q q1) r1)])]))
 
; Example:
(poly/ #(-42 0 -12 1) #(-3 1))
Retrieved from "https://rosettacode.org/wiki/Polynomial_long_division"