gnu/usr.bin/bc/Test/fact.b


1
2
3
4
5
6
7
8
9
10
11
12
13

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