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 2100 for branches


Ignore:
Timestamp:
2015-06-17T20:03:05-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/ring.lisp

    r2099 r2100  
    4949(in-package :ring)
    5050
    51 (defgeneric ring-unit-for (object)
     51(defgeneric unit-for (object)
    5252  (:method ((self number)) 1))
    5353
    54 (defgeneric ring-zerop (object)
    55   (:method ((self number)) (zerop self)))
     54(defgeneric zerop (object)
     55  (:method ((self number)) (cl:zerop self)))
    5656
    57 (defgeneric ring-add (x y)
     57(defgeneric add (x y)
    5858  (:method ((x number) (y number)) (+ x y)))
    5959
    60 (defgeneric ring-mul (x y)
     60(defgeneric mul (x y)
    6161  (:method ((x number) (y number)) (* x y)))
    6262
    63 (defgeneric ring-tensor-mul (x y))
     63(defgeneric tensor-mul (x y))
    6464
    65 (defgeneric ring-div (x y)
     65(defgeneric div (x y)
    6666  (:method ((x number) (y number)) (/ x y)))
    6767
    68 (defgeneric ring-lcm (x y)
    69   (:method ((x integer) (y integer)) (lcm x y)))
     68(defgeneric lcm (x y)
     69  (:method ((x integer) (y integer)) (cl:lcm x y)))
    7070
    71 (defgeneric ring-ezgcd (x y)
     71(defgeneric ezgcd (x y)
    7272  (:method ((x integer) (y integer)
    7373            &aux (c (gcd x y)))
    7474    (values c (/ x c) (/ y c))))
    7575
    76 (defgeneric ring-gcd (x y)
     76(defgeneric gcd (x y)
    7777  (:method ((x integer) (y integer))
    78     (gcd x y)))
     78    (cl:gcd x y)))
    7979
    8080(defgeneric dimension (object))
Note: See TracChangeset for help on using the changeset viewer.