- Timestamp:
- 2016-06-08T23:12:01-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4396 r4427 246 246 self) 247 247 248 #| 248 249 (defmacro fast-add/subtract (p q order-fn add/subtract-fn uminus-fn) 249 250 "Return an expression which will efficiently adds/subtracts two … … 298 299 ;;(format t "R:~A~%" r) 299 300 ))) 301 |# 300 302 301 303 (defun fast-add (p q order-fn add-fn) 304 "Add two polynomials, P and Q, represented as lists of terms. 305 The operation is destructive to both polynomials, as the terms 306 of both lists are combined into the result." 302 307 (macrolet ((lc (x) `(term-coeff (car ,x)))) 303 308 (do (r)
Note:
See TracChangeset
for help on using the changeset viewer.