Modular arithmetic: Difference between revisions
m
→{{header|ATS}}
m (→{{header|ATS}}) |
|||
Line 354:
extern fn {tk : tkind}
f : {m : int} modular_g0uint (tk, m) -<>
(* Using the "successor" function below means that, to add 1, we do
|