diff options
Diffstat (limited to 'bc_funcs/std.bc')
-rw-r--r-- | bc_funcs/std.bc | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/bc_funcs/std.bc b/bc_funcs/std.bc deleted file mode 100644 index e90231e..0000000 --- a/bc_funcs/std.bc +++ /dev/null @@ -1,30 +0,0 @@ -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 -} |