- Timestamp:
- 2015-06-17T20:09:13-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring.lisp
r2104 r2105 56 56 (:method ((self number)) (cl:zerop self))) 57 57 58 (defgeneric add(x y)59 (:method ((x number) (y number)) ( + x y)))58 (defgeneric + (x y) 59 (:method ((x number) (y number)) (cl:+ x y))) 60 60 61 (defgeneric mul(x y)62 (:method ((x number) (y number)) ( * x y)))61 (defgeneric * (x y) 62 (:method ((x number) (y number)) (cl:* x y))) 63 63 64 (defgeneric tensor- mul(x y))64 (defgeneric tensor-times (x y)) 65 65 66 (defgeneric div(x y)67 (:method ((x number) (y number)) ( / x y)))66 (defgeneric / (x y) 67 (:method ((x number) (y number)) (cl:/ x y))) 68 68 69 69 (defgeneric lcm (x y) … … 73 73 (:method ((x integer) (y integer) 74 74 &aux (c (cl:gcd x y))) 75 (values c ( / x c) (/ y c))))75 (values c (cl:/ x c) (cl:/ y c)))) 76 76 77 77 (defgeneric gcd (x y)
Note:
See TracChangeset
for help on using the changeset viewer.