diff options
Diffstat (limited to 'src/algebra/pdecomp.spad.pamphlet')
| -rw-r--r-- | src/algebra/pdecomp.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/pdecomp.spad.pamphlet b/src/algebra/pdecomp.spad.pamphlet index 1e6f1829..b449e437 100644 --- a/src/algebra/pdecomp.spad.pamphlet +++ b/src/algebra/pdecomp.spad.pamphlet @@ -53,7 +53,7 @@ PolynomialDecomposition(UP, F): PDcat == PDdef where for i in 0.. while f ~= 0 repeat fr := divide(f, h) f := fr.quotient; r := fr.remainder - degree r > 0 => return "failed" + positive? degree r => return "failed" g := g + r * monomial(1, i) g |