Left factorials: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
(Added Quackery.) |
||
Line 2,792: | Line 2,792: | ||
Digit counts for terms 1k through 10k (inclusive) by k: |
Digit counts for terms 1k through 10k (inclusive) by k: |
||
[2565, 5733, 9128, 12670, 16322, 20062, 23875, 27749, 31678, 35656]</pre> |
[2565, 5733, 9128, 12670, 16322, 20062, 23875, 27749, 31678, 35656]</pre> |
||
=={{header|Quackery}}== |
|||
<lang Quackery> [ 1 swap times [ i 1+ * ] ] is ! ( n --> n ) |
|||
[ 0 swap times [ i ! + ] ] is !n ( n --> n ) |
|||
say "First 11 left factorials:" cr |
|||
11 times [ i^ !n echo sp ] cr |
|||
cr |
|||
say "20 through 110 (inclusive) by tens:" cr |
|||
10 times [ i^ 2 + 10 * !n echo cr ] |
|||
cr |
|||
say "Digits in 1,000 through 10,000 by thousands:" cr |
|||
10 times [ i^ 1+ 1000 * !n number$ size echo cr ] |
|||
cr</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|R}}== |
=={{header|R}}== |