Blame Test/fact.b

Packit 70b277
define f (x) {
Packit 70b277
Packit 70b277
  if (x<=1) return(1)
Packit 70b277
  return (f(x-1)*x)
Packit 70b277
}
Packit 70b277
Packit 70b277
for (a=1; a<600; a++) b=f(a)
Packit 70b277
"length(b)= "; length(b)
Packit 70b277
quit
Packit 70b277