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 2099


Ignore:
Timestamp:
2015-06-17T20:00:49-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/ring.lisp

    r2098 r2099  
    4949(in-package :ring)
    5050
    51 (defgeneric parse (object)
    52   (:method ((object t)) object))
    53 
    54 (defgeneric unit-for (object)
     51(defgeneric ring-unit-for (object)
    5552  (:method ((self number)) 1))
    5653
    57 (defgeneric zerop (object)
     54(defgeneric ring-zerop (object)
    5855  (:method ((self number)) (zerop self)))
    5956
    60 (defgeneric add (x y)
     57(defgeneric ring-add (x y)
    6158  (:method ((x number) (y number)) (+ x y)))
    6259
    63 (defgeneric mul (x y)
     60(defgeneric ring-mul (x y)
    6461  (:method ((x number) (y number)) (* x y)))
    6562
    66 (defgeneric tensor-mul (x y))
     63(defgeneric ring-tensor-mul (x y))
    6764
    68 (defgeneric div (x y)
     65(defgeneric ring-div (x y)
    6966  (:method ((x number) (y number)) (/ x y)))
    7067
    71 (defgeneric lcm (x y)
     68(defgeneric ring-lcm (x y)
    7269  (:method ((x integer) (y integer)) (lcm x y)))
    7370
    74 (defgeneric ezgcd (x y)
     71(defgeneric ring-ezgcd (x y)
    7572  (:method ((x integer) (y integer)
    7673            &aux (c (gcd x y)))
    7774    (values c (/ x c) (/ y c))))
    7875
    79 (defgeneric gcd (x y)
     76(defgeneric ring-gcd (x y)
    8077  (:method ((x integer) (y integer))
    8178    (gcd x y)))
Note: See TracChangeset for help on using the changeset viewer.