- Timestamp:
- 2015-06-20T22:09:21-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring.lisp
r2808 r2809 108 108 &aux (c (gcd x y))) 109 109 (values c (/ x c) (/ y c))) 110 (:documentation "Solves the diophantine system: X=C*X1, Y=C*X2, C=GCD(X,Y)")) 110 (:documentation "Solves the diophantine system: X=C*X1, Y=C*X2, 111 C=GCD(X,Y). It returns C, X1 and Y1. The result may be obtained by 112 the Euclidean algorithm.")) 111 113 112 114 (defgeneric r-gcd (x y)
Note:
See TracChangeset
for help on using the changeset viewer.