Changeset 17 in CGBLisp
- Timestamp:
- Jan 27, 2009, 1:02:58 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/parse.lisp
r16 r17 247 247 ((symbolp expr) 248 248 (nth (position expr vars) basis)) 249 ((eql (car expr ) 'expt) 250 ($poly-expt (poly-eval-1 (cadr expr) vars order ring) 251 (caddr expr) 252 n order ring)) 249 253 (t 250 254 (let ((r (mapcar … … 263 267 (reduce #'(lambda (p q) ($poly* p q n order ring)) r)) 264 268 (/ 265 ($poly/ (car r) (cadr r) ring)) 266 (expt 267 ($poly-expt (car r) (cadr r) n order ring))))))) 269 ($poly/ (car r) (cadr r) ring))))))) 268 270 269 271
Note:
See TracChangeset
for help on using the changeset viewer.