1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ n = $1
n += $1
if (n != $1 + $1) print NR, "urk +="
n = $1
n -= $1
if (n != 0) print NR, "urk -="
n = $1
n *= 3.5
if (n != 3.5 * $1) print NR, "urk *="
n = $1
n /= 4
if (n != $1 / 4) print NR, "urk /="
n = NR
n ^= 2
if (n != NR * NR) print NR, "urk1 ^=", n, NR * NR
n = NR
n **= 2
if (n != NR * NR) print NR, "urk1 **=", n, NR * NR
n = NR
n ^= 1.5
ns = sprintf("%.10g", n)
sq = sprintf("%.10g", NR * sqrt(NR))
if (ns != sq) print NR, "urk2 ^=", ns, sq
}
|
