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.

Changeset 1268


Ignore:
Timestamp:
2015-06-11T19:41:44-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r1267 r1268  
    189189
    190190(defun poly-nreverse (p)
    191   "Reverse the order of terms in polynomial P."
     191  "Destructively reverse the order of terms in polynomial P. Returns P"
    192192  (declare (type poly p))
    193193  (setf (poly-termlist p) (nreverse (poly-termlist p)))
    … …  
    195195
    196196(defun poly-reverse (p)
     197  "Returns a copy of the polynomial P with terms in reverse order."
    197198  (declare (type poly p))
    198199  (make-poly-from-termlist (reverse (poly-termlist p))
Note: See TracChangeset for help on using the changeset viewer.