Changeset 1172 for branches/f4grobner
- Timestamp:
- 2015-06-10T19:59:05-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1171 r1172 418 418 (mapcar #'term->cons (poly-termlist p))) 419 419 ((and (consp p) (eq (car p) :[)) 420 (cons t:[ (mapcar #'poly->alist (cdr p))))))420 (cons :[ (mapcar #'poly->alist (cdr p)))))) 421 421 422 422 (defun string->alist (str vars
Note:
See TracChangeset
for help on using the changeset viewer.