Left factorials: Difference between revisions
Content added Content deleted
(→{{header|Racket}}: tightened up a bit (especially the dnl's)) |
(Added zkl) |
||
Line 553: | Line 553: | ||
!9000 has 31678 digits |
!9000 has 31678 digits |
||
!10000 has 35656 digits |
!10000 has 35656 digits |
||
</pre> |
|||
=={{header|zkl}}== |
|||
{{trans|D}} |
|||
<lang zkl>var BN=Import("zklBigNum"); |
|||
fcn leftFact(n){ |
|||
[1..n].reduce(fcn(p,n,rf){ p+=rf.value; rf.set(rf.value*n); p }, |
|||
BN(0),Ref(BN(1))); |
|||
}</lang> |
|||
<lang zkl>println("First 11 left factorials:\n", [0..10].apply(leftFact)); |
|||
lfs:=[20..111,10].apply(leftFact); |
|||
println(("\n20 through 110 (inclusive) by tens:\n" + |
|||
"%d\n"*lfs.len()).fmt(lfs.xplode())); |
|||
println("Digits in 1,000 through 10,000 by thousands:\n", |
|||
[0d1_000..0d10_000, 1000].pump(List,fcn(n){leftFact(n).toString().len()}));</lang> |
|||
{{out}} |
|||
<pre> |
|||
First 11 left factorials: |
|||
L(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: |
|||
L(2565,5733,9128,12670,16322,20062,23875,27749,31678,35656) |
|||
</pre> |
</pre> |