Changeset 4394
- Timestamp:
- 2016-06-07T14:22:25-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/test5.lisp
r4393 r4394 25 25 (poly->string sp)) 26 26 (setf sp-rem (normal-form sp fl)) 27 (format t "NORMAL-FORM(~A,~A) --> ~A~%" (poly->string sp-rem) (poly->string (cons :[ fl)) (poly->string sp-rem)) 27 (format t "NORMAL-FORM(~A,~A) --> ~A~%" 28 (poly->string sp-rem) 29 (poly->string (cons :[ fl)) 30 (poly->string sp-rem)) 28 31 ) 29 32 )
Note:
See TracChangeset
for help on using the changeset viewer.