freebsd-skq/contrib/bc/Test/fact.b
2001-02-26 07:13:00 +00:00

13 lines
107 B
Brainfuck

define f (x) {
if (x<=1) return(1)
return (f(x-1)*x)
}
for (a=1; a<600; a++) b=f(a)
"
"
"b=";b
quit