Left factorials: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 45: | Line 45: | ||
* [http://rosettacode.org/wiki/Permutations/Derangements permutations/derangements (subfactorials)] |
* [http://rosettacode.org/wiki/Permutations/Derangements permutations/derangements (subfactorials)] |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
{{trans|D}} |
|||
<lang 11l>F left_fact(n) |
|||
BigInt result = 0 |
|||
BigInt factorial = 1 |
|||
L(i) 1 .. n |
|||
result += factorial |
|||
factorial *= i |
|||
R result |
|||
print(‘First 11 left factorials:’) |
|||
print((0..10).map(i -> left_fact(i))) |
|||
print("\n20 through 110 (inclusive) by tens:") |
|||
L(i) (20..110).step(10) |
|||
print(left_fact(i)) |
|||
print("\nDigits in 1,000 through 10,000 by thousands:") |
|||
print((1000..10000).step(1000).map(i -> String(left_fact(i)).len))</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> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |