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