1: define f (x) {
2:
3: if (x<=1) return(1)
4: return (f(x-1)*x)
5: }
6:
7: "Here we go"
8: for (a=1; a<100; a++) b+=f(a)/a
9: "
10: "
11: "b=";b
12: quit
13:
5761923 [rkeene@sledge /home/rkeene/devel/old/bc-dos/Test]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 1995-03-30 07:28:59