Initial import from FreeBSD RELENG_4:
[dragonfly.git] / contrib / bc / Test / fact.b
1 define f (x) {
2
3   if (x<=1) return(1)
4   return (f(x-1)*x)
5 }
6
7 for (a=1; a<600; a++) b=f(a)
8 "
9 "
10 "b=";b
11 quit
12