{ Calculate a factorial of a number. For exmaple, to calculate a factorial of 100000, run query: x:.L & x:=0 & Factorial(100000,x) Note: Make sure you compile with enabled garbage collection, otherwise you may get run-time memory out of memory errors. To fully savor the size of the result, TTY settings should have "Wrap Lines" enabled and height hundreds of lines. } proc Factorial(x:<I,yy:.L) iff if x > 0 then Factorial(x-1,yy) & yy := yy*x & if x mod 100 = 0 then {show progress} Print('\r',x) end else yy := 1 end

*This page was created by F1toHTML*