blob: e90231e0488bcbb24c5ffaae4034c4afffc6f15e (
plain) (
tree)
|
|
define abs(x) {
if (x < 0)
x *= -1
return x
}
define fact(x) {
auto r, s
if (x < 0) {
print "Error: Negative factorial\n"
return 0
}
/* x % 1 requires scale set to 0 */
s = scale
scale = 0
if (x % 1 != 0) {
print "Error: Non-integer factorial\n"
scale = s
return 0
}
r = 1
for (i = 2; i <= x; i++)
r *= i
scale = s
return r
}
|