diff options
-rw-r--r-- | 020.bc | 17 |
1 files changed, 17 insertions, 0 deletions
@@ -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 |