close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 2793


Ignore:
Timestamp:
2015-06-20T21:23:42-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2792 r2793  
    225225    (t
    226226     (let ((head (multiply-terms (car p) (car q)))
    227            (tail (add-termlists (term-times-termlist (car p) (cdr q))
    228                                 (multiply-termlists (cdr p) q))))
    229        (cond ((null head) tail)
    230              ((null tail) head)
    231              (t (nconc head tail)))))))))
     227           (tail (add-termlists
     228                  (multiply-term-by-termlist-dropping-zeros (car p) (cdr q))
     229                  (multiply-termlists (cdr p) q))))
     230
     231       (nconc head tail)))))))
    232232
    233233#|
Note: See TracChangeset for help on using the changeset viewer.