freebsd-nq/contrib/bc/Test/fact.b

define f (x) {

  if (x<=1) return(1)
  return (f(x-1)*x)
}

for (a=1; a<600; a++) b=f(a)
"
"
"b=";b
quit
Import GNU bc 1.04 PR: 4183 1998-04-29 21:53:01 +00:00			`define f (x) {`

			`if (x<=1) return(1)`
			`return (f(x-1)*x)`
			`}`

Initial import of bc 1.0.6 2001-02-26 07:13:00 +00:00			`for (a=1; a<600; a++) b=f(a)`
Import GNU bc 1.04 PR: 4183 1998-04-29 21:53:01 +00:00			`"`
			`"`
			`"b=";b`
			`quit`