22954
|
1 |
(* Title: Pure/General/int.ML
|
|
2 |
ID: $Id$
|
|
3 |
Author: Florian Haftmann, TU Muenchen
|
|
4 |
|
|
5 |
Unbounded integers.
|
|
6 |
*)
|
|
7 |
|
|
8 |
signature INTT =
|
|
9 |
sig
|
|
10 |
type int
|
|
11 |
val zero: int
|
|
12 |
val one: int
|
|
13 |
val two: int
|
|
14 |
val int: Int.int -> int
|
|
15 |
val machine_int: int -> Int.int
|
|
16 |
val string_of_int: int -> string
|
|
17 |
val int_of_string: string -> int option
|
|
18 |
val eq: int * int -> bool
|
|
19 |
val cmp: int * int -> order
|
|
20 |
val le: int -> int -> bool
|
|
21 |
val cmp_zero: int -> order
|
|
22 |
val add: int -> int -> int
|
|
23 |
val sub: int -> int -> int
|
|
24 |
val mult: int -> int -> int
|
|
25 |
val divmod: int -> int -> int * int
|
|
26 |
val div: int -> int -> int
|
|
27 |
val mod: int -> int -> int
|
|
28 |
val neg: int -> int
|
|
29 |
val exp: int -> int
|
|
30 |
end;
|
|
31 |
|
|
32 |
structure Intt: INTT =
|
|
33 |
struct
|
|
34 |
|
|
35 |
open IntInf;
|
|
36 |
|
|
37 |
val int = IntInf.fromInt;
|
|
38 |
|
|
39 |
val zero = int 0;
|
|
40 |
val one = int 1;
|
|
41 |
val two = int 2;
|
|
42 |
|
|
43 |
val machine_int = IntInf.toInt;
|
|
44 |
val string_of_int = IntInf.toString;
|
|
45 |
val int_of_string = IntInf.fromString;
|
|
46 |
|
|
47 |
val eq = op =;
|
|
48 |
val cmp = compare;
|
|
49 |
val le = curry (op <=);
|
|
50 |
val cmp_zero = curry cmp zero;
|
|
51 |
val add = curry (op +);
|
|
52 |
val sub = curry (op -);
|
|
53 |
val mult = curry ( op * );
|
|
54 |
val divmod = curry divMod;
|
|
55 |
nonfix div
|
|
56 |
val div = curry div;
|
|
57 |
nonfix mod
|
|
58 |
val mod = curry mod;
|
|
59 |
val neg = IntInf.~;
|
|
60 |
fun exp n = pow (2, IntInf.toInt n);
|
|
61 |
|
|
62 |
end;
|