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 2917


Ignore:
Timestamp:
2015-06-21T12:46:12-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2916 r2917  
    196196(defun add-termlists (p q order-fn)
    197197  "Destructively adds two termlists P and Q ordered according to ORDER-FN."
    198   (fast-add/subtract p q order-fn add-to nil))
    199 
     198  (fast-add/subtract p q order-fn #'add-to nil))
    200199
    201200(defmacro multiply-term-by-termlist-dropping-zeros (term termlist
     
    217216(defun multiply-termlists (p q order-fn)
    218217  (cond
    219     ((or (endp p) (endp q)) nil)        ;p or q is 0 (represented by NIL)
     218    ((or (endp p) (endp q))         
     219     ;;p or q is 0 (represented by NIL)
     220     nil)       
    220221    ;; If p= p0+p1 and q=q0+q1 then p*q=p0*q0+p0*q1+p1*q
    221222    ((endp (cdr p))
     
    229230                     (multiply-termlists (cdr p) q)
    230231                     order-fn))))))))
     232#|
     233
    231234
    232235
     
    237240  self)
    238241
     242|#
    239243
    240244#|
Note: See TracChangeset for help on using the changeset viewer.