Left factorials: Difference between revisions
Content added Content deleted
(Added zkl) |
(Added Bracmat example) |
||
Line 18: | Line 18: | ||
* The MathWorld entry: [[http://mathworld.wolfram.com/FactorialSums.html factorial sums]] |
* The MathWorld entry: [[http://mathworld.wolfram.com/FactorialSums.html factorial sums]] |
||
* The MathWorld entry: [[http://mathworld.wolfram.com/Subfactorial.html subfactorial]] |
* The MathWorld entry: [[http://mathworld.wolfram.com/Subfactorial.html subfactorial]] |
||
=={{header|Bracmat}}== |
|||
{{trans|D}} |
|||
<lang bracmat>( ( leftFact |
|||
= result factorial i |
|||
. 0:?result |
|||
& 1:?factorial |
|||
& 0:?i |
|||
& whl |
|||
' ( !i+1:~>!arg:?i |
|||
& !factorial+!result:?result |
|||
& !factorial*!i:?factorial |
|||
) |
|||
& !result |
|||
) |
|||
& ( iterate |
|||
= from to step c fun |
|||
. !arg:(?from.?to.?step.?fun) |
|||
& !from+-1*!step:?from |
|||
& !step:?c |
|||
& whl |
|||
' ( !step+!from:~>!to:?from |
|||
& !fun$(leftFact$!from) |
|||
) |
|||
& |
|||
) |
|||
& out$"First 11 left factorials:" |
|||
& iterate$(0.10.1.out) |
|||
& out$" |
|||
20 through 110 (inclusive) by tens:" |
|||
& iterate$(20.110.10.out) |
|||
& out$" |
|||
Digits in 1,000 through 10,000 by thousands:" |
|||
& iterate |
|||
$ ( 1000 |
|||
. 10000 |
|||
. 1000 |
|||
. (=L.@(!arg:? [?L)&out$!L) |
|||
) |
|||
)</lang> |
|||
Output: |
|||
<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|D}}== |
=={{header|D}}== |