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