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.
| Rev | Line | |
|---|
| [4170] | 1 | (in-package :polynomial)
|
|---|
| [4442] | 2 |
|
|---|
| 3 | (proclaim '(special p r))
|
|---|
| 4 |
|
|---|
| [4170] | 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.
Download in other formats:
