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 4551 for branches


Ignore:
Timestamp:
2016-06-18T19:30:12-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4548 r4551  
    345345               (cons (car p) (slow-add (cdr p) (cdr q) order-fn add-fn))
    346346               ))))
    347          (t                    ;(< (car p) (car q))                     
     347         (t                  ;(< (car p) (car q))                       
    348348          (cons (car q) (slow-add p (cdr q) order-fn add-fn))
    349349          ))))))
    … …  
    397397  "Non-recursive version of SLOW-ADD. This version uses auxillary variable
    398398RESULT which serves as a stack for the terms of the sum of P and Q. This version
    399 is nearly twice as fast on some tests."
     399is about as fast as SLOW-ADD, but it appears to use double the memory."
    400400  (loop
    401401     (cond
Note: See TracChangeset for help on using the changeset viewer.