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 4110


Ignore:
Timestamp:
2016-06-01T13:17:02-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/test1.lisp

    r4088 r4110  
    11(in-package :division)
    2 
    32
    43#+nil
    … …  
    2019      )
    2120  (multiple-value-bind (a r c division-count)
    22       (step (poly-pseudo-divide f fl))
     21      (poly-pseudo-divide f fl)
    2322    (format t "Quotients:        ~S~%" (poly->string (cons :[ a) '(x y)))
    2423    (format t "Remainder:        ~S~%" (->sexp r '(x y)))
Note: See TracChangeset for help on using the changeset viewer.