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.
|
Last change
on this file since 4251 was 4170, checked in by Marek Rychlik, 8 years ago |
|
Moved files infix-errors* to junk
|
|
File size:
450 bytes
|
| Line | |
|---|
| 1 | (in-package :polynomial)
|
|---|
| 2 | (setf p (ADD-TO
|
|---|
| 3 | (make-instance 'poly :dimension 1 :termlist (list (make-instance 'term :exponents #(0) :coeff 5)) :order #'lex>)
|
|---|
| 4 | (make-instance 'poly :dimension 1 :termlist (list (make-instance 'term :exponents #(1) :coeff 1)) :order #'lex>)))
|
|---|
| 5 |
|
|---|
| 6 | (setf r (POLYNOMIAL::ADD-TERMLISTS (list (make-instance 'term :exponents #(0) :coeff 5))
|
|---|
| 7 | (list (make-instance 'term :exponents #(1) :coeff 1))
|
|---|
| 8 | #'lex>))
|
|---|
| 9 | (print r)
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
Download in other formats:
