Polynomial long division: Difference between revisions
Content added Content deleted
(→{{header|Ursala}}: added zkl) |
m (→{{header|zkl}}: extrainous code) |
||
Line 1,932: | Line 1,932: | ||
=={{header|zkl}}== |
=={{header|zkl}}== |
||
<lang zkl>fcn polyLongDivision(a,b){ // (a0 + a1x + a2x^2 + a3x^3 ...) |
<lang zkl>fcn polyLongDivision(a,b){ // (a0 + a1x + a2x^2 + a3x^3 ...) |
||
_assert_(degree(b)>=0,"degree(%s) |
_assert_(degree(b)>=0,"degree(%s) < 0".fmt(b)); |
||
q:=List.createLong(a.len(),0.0); |
q:=List.createLong(a.len(),0.0); |
||
while((ad:=degree(a)) >= (bd:=degree(b))){ |
while((ad:=degree(a)) >= (bd:=degree(b))){ |