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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
function eq(left, right)
{
return left == right
}
function ne(left, right)
{
return left != right
}
function lt(left, right)
{
return left < right
}
function le(left, right)
{
return left <= right
}
function gt(left, right)
{
return left > right
}
function ge(left, right)
{
return left >= right
}
BEGIN {
nan = sqrt(-1)
inf = -log(0)
split("== != < <= > >=", names)
names[3] = names[3] " "
names[5] = names[5] " "
split("eq ne lt le gt ge", funcs)
compare[1] = 2.0
compare[2] = values[1] = -sqrt(-1.0) # nan
compare[3] = values[2] = sqrt(-1.0) # -nan
compare[4] = values[3] = -log(0.0) # inf
compare[5] = values[4] = log(0.0) # -inf
for (i = 1; i in values; i++) {
for (j = 1; j in compare; j++) {
for (k = 1; k in names; k++) {
the_func = funcs[k]
printf("%g %s %g -> %s\n",
values[i],
names[k],
compare[j],
@the_func(values[i], compare[j]) ?
"True" : "False");
}
printf("\n");
}
}
}
|
