close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 2450 for branches/f4grobner


Ignore:
Timestamp:
2015-06-19T10:19:54-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/ring.lisp

    r2444 r2450  
    7373
    7474(defgeneric r-zerop (object)
    75   (:method ((self number)) (cl:zerop self)))
     75  (:method ((self number)) (zerop self)))
    7676
    7777(defgeneric r+ (x y)
    78   (:method ((x number) (y number)) (cl:+ x y)))
     78  (:method ((x number) (y number)) (+ x y)))
    7979
    8080(defgeneric r- (x y)
    81   (:method ((x number) (y number)) (cl:- x y)))
     81  (:method ((x number) (y number)) (- x y)))
    8282
    8383(defgeneric r* (x y)
    84   (:method ((x number) (y number)) (cl:* x y)))
     84  (:method ((x number) (y number)) (* x y)))
    8585
    8686(defgeneric r-tensor-product (x y))
    8787
    8888(defgeneric r/ (x y)
    89   (:method ((x number) (y number)) (cl:/ x y)))
     89  (:method ((x number) (y number)) (/ x y)))
    9090
    9191(defgeneric r-lcm (x y)
    92   (:method ((x integer) (y integer)) (cl:lcm x y)))
     92  (:method ((x integer) (y integer)) (lcm x y)))
    9393
    9494(defgeneric r-expt (x y)
    95   (:method ((x integer) (y integer)) (cl:expt x y)))
     95  (:method ((x integer) (y integer)) (expt x y)))
    9696
    9797(defgeneric r-ezgcd (x y)
     
    102102(defgeneric r-gcd (x y)
    103103  (:method ((x integer) (y integer))
    104     (cl:gcd x y)))
     104    (gcd x y)))
    105105
    106106(defgeneric r-dimension (object))
     
    112112(defgeneric r-divides-p (object1 object2)
    113113  (:method ((object1 integer) (object2 integer))
    114     (cl:zerop (rem object2 object1)))
     114    (zerop (rem object2 object1)))
    115115  (:documentation "Returns T if OBJECT1 divides OBJECT2"))
    116116
Note: See TracChangeset for help on using the changeset viewer.