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.

Ignore:
Timestamp:
2016-06-01T09:23:43-07:00 (8 years ago)
Author:
Marek Rychlik
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/test1.lisp

    r4084 r4088  
    2121  (multiple-value-bind (a r c division-count)
    2222      (step (poly-pseudo-divide f fl))
    23     (format t "Quotients:        ~S~%" a)
    24     (format t "Remainder:        ~S~%" (->sexp r))
     23    (format t "Quotients:        ~S~%" (poly->string (cons :[ a) '(x y)))
     24    (format t "Remainder:        ~S~%" (->sexp r '(x y)))
    2525    (format t "Coefficient:     ~S~%" c)
    2626    (format t "Division count:  ~S~%" division-count)))
Note: See TracChangeset for help on using the changeset viewer.