21 lines
413 B
Plaintext
21 lines
413 B
Plaintext
leftFactorial[n] :=
|
|
{
|
|
sum = 0
|
|
for k = 0 to n-1
|
|
sum = sum + k!
|
|
|
|
return sum
|
|
}
|
|
|
|
println["Zero through ten"]
|
|
for n = 0 to 10
|
|
println["$n\t" + leftFactorial[n]]
|
|
|
|
println["\n20 through 110"]
|
|
for n = 20 to 110 step 10
|
|
println["$n\t" + leftFactorial[n]]
|
|
|
|
println["\nlength of 1000 through 10000"]
|
|
for n = 1000 to 10000 step 1000
|
|
println["$n has " + length[toString[leftFactorial[n]]] + " digits"]
|