Anonymous user
Left factorials: Difference between revisions
Add Seed7 example
(Updated D entry) |
(Add Seed7 example) |
||
Line 710:
!9000 has 31678 digits
!10000 has 35656 digits
</pre>
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
include "bigint.s7i";
const func bigInteger: leftFact (in integer: n) is func
result
var bigInteger: leftFact is 0_;
local
var bigInteger: factorial is 1_;
var integer: i is 0;
begin
for i range 1 to n do
leftFact +:= factorial;
factorial *:= bigInteger conv i;
end for;
end func;
const proc: main is func
local
var integer: n is 0;
begin
writeln("First 11 left factorials:");
for n range 0 to 10 do
write(" " <& leftFact(n));
end for;
writeln;
writeln("20 through 110 (inclusive) by tens:");
for n range 20 to 110 step 10 do
writeln(leftFact(n));
end for;
writeln;
writeln("Digits in 1,000 through 10,000 by thousands:");
for n range 1000 to 10000 step 1000 do
writeln(length(str(leftFact(n))));
end for;
writeln;
end func;</lang>
{{out}}
<pre>
First 11 left factorials:
0 1 2 4 10 34 154 874 5914 46234 409114
20 through 110 (inclusive) by tens:
128425485935180314
9157958657951075573395300940314
20935051082417771847631371547939998232420940314
620960027832821612639424806694551108812720525606160920420940314
141074930726669571000530822087000522211656242116439949000980378746128920420940314
173639511802987526699717162409282876065556519849603157850853034644815111221599509216528920420940314
906089587987695346534516804650290637694024830011956365184327674619752094289696314882008531991840922336528920420940314
16695570072624210767034167688394623360733515163575864136345910335924039962404869510225723072235842668787507993136908442336528920420940314
942786239765826579160595268206839381354754349601050974345395410407078230249590414458830117442618180732911203520208889371641659121356556442336528920420940314
145722981061585297004706728001906071948635199234860720988658042536179281328615541936083296163475394237524337422204397431927131629058103519228197429698252556442336528920420940314
Digits in 1,000 through 10,000 by thousands:
2565
5733
9128
12670
16322
20062
23875
27749
31678
35656
</pre>
| |||