- Timestamp:
- 2015-06-17T15:09:21-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring.lisp
r2016 r2017 112 112 &aux (c (gcd x y))) 113 113 (values c (/ x c) (/ y c)))) 114 115 (defgeneric ring-gcd (x y) 116 (:method ((x integer) (y integer)) 117 (gcd x y))) 118 119
Note:
See TracChangeset
for help on using the changeset viewer.