freebsd-skq/contrib/bc/Test/fact.b

14 lines
123 B
Brainfuck
Raw Normal View History

1998-04-29 21:53:01 +00:00
define f (x) {
if (x<=1) return(1)
return (f(x-1)*x)
}
"Here we go"
for (a=1; a<100; a++) b+=f(a)/a
"
"
"b=";b
quit