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


Ignore:
Timestamp:
2016-06-08T23:12:01-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4396 r4427  
    246246  self)
    247247
     248#|
    248249(defmacro fast-add/subtract (p q order-fn add/subtract-fn uminus-fn)
    249250  "Return an expression which will efficiently adds/subtracts two
    … …  
    298299       ;;(format t "R:~A~%" r)
    299300       )))
     301|#
    300302
    301303(defun fast-add (p q order-fn add-fn)
     304  "Add two polynomials, P and Q, represented as lists of terms.
     305The operation is destructive to both polynomials, as the terms
     306of both lists are combined into the result."
    302307  (macrolet ((lc (x) `(term-coeff (car ,x))))
    303308    (do (r)
Note: See TracChangeset for help on using the changeset viewer.