home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
gnu
/
bc-1.02-src.lha
/
src
/
amiga
/
bc-1.02
/
Test
/
fact.b
< prev
next >
Wrap
Text File
|
1991-12-16
|
123b
|
14 lines
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