1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
namespace;
include rt;
fn sp() { rt.put_c(32); return 0; }
fn pm(x, prec, mode) { asm { x @ prec @ mode @ #1236 } return 0; }
fn parsed(s) { return asm { s @ #1222 }; }
fn ok(a, b) {
let w = asm { a @ b @ ^ };
if (w) rt.put_n(0); else rt.put_n(1);
return 0;
}
fn main() {
let z = 0.0 * -1.0;
let hi = parsed("9007199254740994");
let lo = parsed("9007199254740992");
pm(1.0e308, 0, 0); sp();
pm(1.0e-10, 0, 0); sp();
pm(z, 0, 0); sp();
pm(1.0 / 0.0, 0, 0); sp();
pm(-1.0 / 0.0, 0, 0); sp();
pm(0.0 / 0.0, 0, 0); sp();
pm(0.1, 0, 0); sp();
pm(1.5, 2, 1); sp();
pm(1.25, 4, 2); sp();
pm(1.0e20, 6, 1); sp();
pm(1.0e40, 0, 0); sp();
ok(parsed("1.5"), 3.0 / 2.0);
ok(parsed("0.1"), 1.0 / 10.0);
ok(parsed("inf"), 1.0 / 0.0);
ok(parsed("-inf"), -1.0 / 0.0);
ok(parsed("-0"), z);
ok(parsed("9007199254740993"), lo);
if (hi == lo) rt.put_n(0); else rt.put_n(1);
if (parsed("5e-324")) rt.put_n(1); else rt.put_n(0);
if (parsed("1e-400")) rt.put_n(0); else rt.put_n(1);
if (parsed("-nan") == parsed("nan")) rt.put_n(0); else rt.put_n(1);
rt.put_c(10);
return 0;
}
|
