Changeset 703
- Timestamp:
- 2015-06-08T18:09:04-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/termlist.lisp
r702 r703 155 155 156 156 (defun termlist-sub (ring p q) 157 (declare (type list p q) )157 (declare (type list p q) (ring ring)) 158 158 (do (r) 159 159 ((cond … … 185 185 ;; Non-destructive version 186 186 (defun termlist-mul (ring p q) 187 (declare (ring ring)) 187 188 (cond ((or (endp p) (endp q)) nil) ;p or q is 0 (represented by NIL) 188 189 ;; If p=p0+p1 and q=q0+q1 then pq=p0q0+p0q1+p1q
Note:
See TracChangeset
for help on using the changeset viewer.