mirror of
https://github.com/lcn2/calc.git
synced 2025-08-16 01:03:29 +03:00
20 lines
765 B
Plaintext
20 lines
765 B
Plaintext
/*
|
|
* Copyright (c) 1995 Ernest Bowen and Landon Curt Noll
|
|
* Permission is granted to use, distribute, or modify this source,
|
|
* provided that this copyright notice remains intact.
|
|
*
|
|
* By: Ernest Bowen and Landon Curt Noll
|
|
* ernie@neumann.une.edu.au and http://reality.sgi.com/chongo/
|
|
*
|
|
* This library is used by the 3100 series of the regress.cal test suite.
|
|
*/
|
|
|
|
obj res {r};
|
|
global md;
|
|
define res_test(a) = !ismult(a.r, md);
|
|
define res_sub(a,b) {local obj res v = {(a.r - b.r) % md}; return v;};
|
|
define res_mul(a,b) {local obj res v = {(a.r * b.r) % md}; return v;};
|
|
define res_neg(a) {local obj res v = {(-a.r) % md}; return v;};
|
|
define res_inv(a) {local obj res v = {minv(a.r, md)}; return v;};
|
|
define res(x) {local obj res v = {x % md}; return v;};
|