|
|
@@ -528,8 +528,8 @@ Foo
|
|
|
(power (pushnew term powers))
|
|
|
(additive (pushnew term additives))
|
|
|
(subtractive (pushnew term subtractives))
|
|
|
- (multiplicative (pushnew term multiplicatives))
|
|
|
(polynomial-term (pushnew term polynomial-terms))
|
|
|
+ (multiplicative (pushnew term multiplicatives))
|
|
|
(rational (pushnew term rationals))
|
|
|
(power (pushnew term powers))
|
|
|
(natural-exponential (pushnew term natural-exponentials))
|
|
|
@@ -537,19 +537,19 @@ Foo
|
|
|
(natural-logarithmic (pushnew term natural-logarithmics))
|
|
|
(trigonometric (pushnew term trigonometrics))))
|
|
|
(remove-if #'(lambda (expr) (null (cdr expr)))
|
|
|
- (list (append (list :numerics) numerics)
|
|
|
- (append (list :variables) variables)
|
|
|
- (append (list :powers) powers)
|
|
|
- (append (list :additives) additives)
|
|
|
- (append (list :subtractives) subtractives)
|
|
|
- (append (list :multiplicatives) multiplicatives)
|
|
|
- (append (list :polynomial-terms) polynomial-terms)
|
|
|
- (append (list :rationals) rationals)
|
|
|
- (append (list :powers) powers)
|
|
|
- (append (list :natural-exponentials) natural-exponentials)
|
|
|
- (append (list :exponentials) exponentials)
|
|
|
- (append (list :natural-logarithmics) natural-logarithmics)
|
|
|
- (append (list :trigonometrics) trigonometrics)))))
|
|
|
+ (list (cons :numerics numerics)
|
|
|
+ (cons :variables variables)
|
|
|
+ (cons :powers powers)
|
|
|
+ (cons :additives additives)
|
|
|
+ (cons :subtractives subtractives)
|
|
|
+ (cons :multiplicatives multiplicatives)
|
|
|
+ (cons :polynomial-terms polynomial-terms)
|
|
|
+ (cons :rationals rationals)
|
|
|
+ (cons :powers powers)
|
|
|
+ (cons :natural-exponentials natural-exponentials)
|
|
|
+ (cons :exponentials exponentials)
|
|
|
+ (cons :natural-logarithmics natural-logarithmics)
|
|
|
+ (cons :trigonometrics trigonometrics)))))
|
|
|
#+END_SRC
|
|
|
|
|
|
* WORKING Polynomial Related Functions [0/6]
|
