15 lines
450 B
Text
15 lines
450 B
Text
a = leftFact(0,10,1)
|
|
see "" + a + nl
|
|
|
|
func leftFact f,t,s
|
|
see "------ From " + f + " --To -> " + t +" Step " + s + " -------" + nl
|
|
for i = f to t step s
|
|
leftFact = 1
|
|
fct = 1
|
|
for j = 1 to i - 1
|
|
fct = fct * j
|
|
leftFact = leftFact + fct
|
|
next
|
|
if i >= 1000 see "" + i + " " + len(string(leftFact)) + " digits" + nl
|
|
else see "" + i + " " + leftFact + nl ok
|
|
next
|