Left factorials: Difference between revisions
Content added Content deleted
(J) |
|||
Line 56: | Line 56: | ||
Digits in 1,000 through 10,000 by thousands: |
Digits in 1,000 through 10,000 by thousands: |
||
[2565, 5733, 9128, 12670, 16322, 20062, 23875, 27749, 31678, 35656]</pre> |
[2565, 5733, 9128, 12670, 16322, 20062, 23875, 27749, 31678, 35656]</pre> |
||
=={{header|J}}== |
|||
This could be made more efficient (in terms of machine time), is there a practical application for this? The more efficient machine approach would require a more specialized interface or memory dedicated to caching. |
|||
<lang J>leftFact=: +/@:!@i."0</lang> |
|||
Task examples: |
|||
<lang J> (,. leftFact) i.11 |
|||
0 0 |
|||
1 1 |
|||
2 2 |
|||
3 4 |
|||
4 10 |
|||
5 34 |
|||
6 154 |
|||
7 874 |
|||
8 5914 |
|||
9 46234 |
|||
10 409114 |
|||
(,. leftFact) 10*2+i.10x |
|||
20 128425485935180314 |
|||
30 9157958657951075573395300940314 |
|||
40 20935051082417771847631371547939998232420940314 |
|||
50 620960027832821612639424806694551108812720525606160920420940314 |
|||
60 141074930726669571000530822087000522211656242116439949000980378746128920420940314 |
|||
70 173639511802987526699717162409282876065556519849603157850853034644815111221599509216528920420940314 |
|||
80 906089587987695346534516804650290637694024830011956365184327674619752094289696314882008531991840922336528920420940314 |
|||
90 16695570072624210767034167688394623360733515163575864136345910335924039962404869510225723072235842668787507993136908442336528920420940314 |
|||
100 942786239765826579160595268206839381354754349601050974345395410407078230249590414458830117442618180732911203520208889371641659121356556442336528920420940314 |
|||
110 145722981061585297004706728001906071948635199234860720988658042536179281328615541936083296163475394237524337422204397431927131629058103519228197429698252556442336528920420940314 |
|||
(,. #@":@leftFact) 1000*1+i.10x |
|||
1000 2565 |
|||
2000 5733 |
|||
3000 9128 |
|||
4000 12670 |
|||
5000 16322 |
|||
6000 20062 |
|||
7000 23875 |
|||
8000 27749 |
|||
9000 31678 |
|||
10000 35656</lang> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |