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 4101 for branches


Ignore:
Timestamp:
2016-06-01T11:20:29-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4092 r4101  
    424424     (multiply-term-by-termlist-dropping-zeros (car q) p t))
    425425    (t
    426      (cons (multiply-by (car p) (car q))
     426     (cons (multiply (car p) (car q))
    427427           (add-termlists
    428428            (multiply-term-by-termlist-dropping-zeros (car p) (cdr q))
    … …  
    666666          (if (endp (cddr expr))        ;unary
    667667              (p-eval (cadr expr))
    668               (reduce #'multiply (p-eval-list (cdr expr)))))
     668              (apply #'multiply (p-eval-list (cdr expr)))))
    669669         (/
    670670          ;; A polynomial can be divided by a scalar
Note: See TracChangeset for help on using the changeset viewer.