Left factorials: Difference between revisions

=={{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>