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.

source: branches/f4grobner/test0.lisp@ 4459

Last change on this file since 4459 was 4442, checked in by Marek Rychlik, 9 years ago
File size: 478 bytes
Line 
1(in-package :polynomial)
2
3(proclaim '(special p r))
4
5(setf p (ADD-TO
6 (make-instance 'poly :dimension 1 :termlist (list (make-instance 'term :exponents #(0) :coeff 5)) :order #'lex>)
7 (make-instance 'poly :dimension 1 :termlist (list (make-instance 'term :exponents #(1) :coeff 1)) :order #'lex>)))
8
9(setf r (POLYNOMIAL::ADD-TERMLISTS (list (make-instance 'term :exponents #(0) :coeff 5))
10 (list (make-instance 'term :exponents #(1) :coeff 1))
11 #'lex>))
12(print r)
Note: See TracBrowser for help on using the repository browser.