RosettaCodeData/Task/Factorial/Bc/factorial.bc

8 lines
94 B
Plaintext

#! /usr/bin/bc -q
define f(x) {
if (x <= 1) return (1); return (f(x-1) * x)
}
f(1000)
quit