1: #line 121 "./lpsrc/flx_gmp.pak"
2:
3: include "flx_gmp";
4: open Gmp;
5:
6: {
7: val x:mpz = mpz_of_int 99;
8: val y:mpz = mpz_of_int 7;
9: print x; endl;
10: print y; endl;
11: print$ x + y; endl;
12: print$ x - y; endl;
13: print$ x * y; endl;
14: print$ x / y; endl;
15: print$ x % y; endl;
16:
17: print$ x == y; endl;
18: print$ x != y; endl;
19: print$ x < y; endl;
20: print$ x <= y; endl;
21: print$ x > y; endl;
22: print$ x >= y; endl;
23:
24: print$ lcm (x,y); endl;
25: print$ gcd (x,y); endl;
26: print$ x /\ y; endl;
27: print$ x \/ y; endl;
28: };
29: {
30: val x:mpq = mpq_of_int 99;
31: val y:mpq = mpq_of_int 7;
32: print x; endl;
33: print y; endl;
34: print$ x + y; endl;
35: print$ x - y; endl;
36: print$ x * y; endl;
37: print$ x / y; endl;
38: print$ x == y; endl;
39: print$ x != y; endl;
40: print$ x < y; endl;
41: print$ x <= y; endl;
42: print$ x > y; endl;
43: print$ x >= y; endl;
44: };
45: {
46: val x:mpf = mpf_of_double 99.0;
47: val y:mpf = mpf_of_double 7.0;
48: print x; endl;
49: print y; endl;
50: print$ x + y; endl;
51: print$ x - y; endl;
52: print$ x * y; endl;
53: print$ x / y; endl;
54: print$ x == y; endl;
55: print$ x != y; endl;
56: print$ x < y; endl;
57: print$ x <= y; endl;
58: print$ x > y; endl;
59: print$ x >= y; endl;
60: };
1: 99
2: 7
3: 106
4: 92
5: 693
6: 14
7: 1
8: false
9: true
10: false
11: false
12: true
13: true
14: 693
15: 1
16: 693
17: 1
18: 99
19: 7
20: 106
21: 92
22: 693
23: 99/7
24: false
25: true
26: false
27: false
28: true
29: true
30: 99
31: 7
32: 106
33: 92
34: 693
35: 14.1429
36: false
37: true
38: false
39: false
40: true
41: true