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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
// Test of all math functions
import("math.lib");
my_isnan = ffunction(int isnanf|isnan|isnanl|isnanfx(float),<math.h>,"");
my_isinf = ffunction(int isinff|isinf|isinfl|isinffx(float),<math.h>,"");
my_copysign = ffunction(float copysignf|copysign|copysignl|copysignfx(float, float),<math.h>,"");
process = ((2.0', 2', 2.0, 2) : par( i, 4, ^(30))),
my_isnan,
my_isinf,
my_copysign,
_ >> _,
_ << _,
int(_*10.5) % 3,
_*10.5 % 3.0,
_ & _,
int(_*3.5) & int(_*2.4),
_*3.5 & int(_*2.4),
_*3.5 & _*2.4,
int(_*3.5) | int(_*2.4),
_*3.5 | _*2.4,
xor(int(_*3.5), int(_*2.4)),
xor(_*3.5, _*2.4),
int(_*3.5) ^ int(_*2.4),
_*3.5 ^ _*2.4,
int(_*3.5) > int(_*2.4),
_*3.5 > int(_*2.4),
_*3.5 > _*2.4,
int(_*3.5) >= int(_*2.4),
_*3.5 >= _*2.4,
int(_*3.5) < int(_*2.4),
_*3.5 < _*2.4,
int(_*3.5) <= int(_*2.4),
_*3.5 <= _*2.4,
int(_*3.5) == int(_*2.4),
_*3.5 == _*2.4,
int(_*3.5) != int(_*2.4),
_*3.5 != _*2.4,
abs(int(_*4.4)),
abs(int(_*-4.4)),
abs(_*4.4),
abs(_*-4.4),
acos(_*0.5),
acos(int(_*0.5)),
asin(_*0.5),
atan(_*0.5),
atan2(_*0.5, 4.0),
atan2(int(_*0.5), 4.0),
atan2(int(_*0.5), int(4.0)),
ceil(_*1.3),
cos(_*0.3),
exp(_*0.5),
floor(_*6.5),
fmod(_*9.2, 2.0),
log((_+1)*0.5),
log10((_+1)*0.5),
max(_*0.5, _*0.4),
min(_*0.5, _*0.4),
max(_*0.5, int(_*0.4)),
min(_*0.5, int(_*0.4)),
max(int(_*3.5), int(_*2.4)),
min(int(_*3.5), int(_*2.4)),
pow(_*0.5, 0.3),
pow(int(_*0.5), 0.3),
pow(_*0.5, 3),
pow(int(_*0.5), 3),
pow(int(_*0.5), int(3)),
pow(10, _*3),
remainder(_*9.2, 2.0),
rint(_*1.5),
round(_*1.5),
sin(_*0.3),
sqrt(_*0.3),
tan(_*0.3),
acosh(10+_*0.3),
asinh(10+_*0.3),
atanh(0.5+_*0.3),
cosh(10+_*0.3),
sinh(10+_*0.3),
tanh(10+_*0.3);
|
