aboutsummaryrefslogtreecommitdiff
path: root/bc_funcs/std.bc
diff options
context:
space:
mode:
Diffstat (limited to 'bc_funcs/std.bc')
-rw-r--r--bc_funcs/std.bc30
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
-}