summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--020.bc17
1 files changed, 17 insertions, 0 deletions
diff --git a/020.bc b/020.bc
new file mode 100644
index 0000000..d538cfe
--- /dev/null
+++ b/020.bc
@@ -0,0 +1,17 @@
+#!/usr/bin/bc
+
+scale = 0
+
+# from the bc man page
+define fact (x) {
+ if (x <= 1) return (1);
+ return (fact(x-1) * x);
+}
+
+total = 0
+num = fact(100)
+while (num > 0) {
+ total += num % 10
+ num = num / 10
+}
+total