Left factorials: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 194: | Line 194: | ||
35656 |
35656 |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">lfactorial: function [n][ |
|||
if zero? n -> return 0 |
|||
fold 0..dec n [x y] -> x + factorial y |
|||
] |
|||
print "First eleven:" |
|||
0..10 | map => lfactorial |
|||
| print |
|||
print "\n20th through 110th by tens:" |
|||
r: range.step: 10 20 110 |
|||
r | map => lfactorial |
|||
| loop => print |
|||
print "\nDigits in 1,000th through 10,000th by thousands:" |
|||
r: range.step: 1000 1000 10000 |
|||
r | map'x -> size ~"|lfactorial x|" |
|||
| print</syntaxhighlight> |
|||
{{out}} |
|||
<pre>First eleven: |
|||
0 1 2 4 10 34 154 874 5914 46234 409114 |
|||
20th through 110th by tens: |
|||
128425485935180314 |
|||
9157958657951075573395300940314 |
|||
20935051082417771847631371547939998232420940314 |
|||
620960027832821612639424806694551108812720525606160920420940314 |
|||
141074930726669571000530822087000522211656242116439949000980378746128920420940314 |
|||
173639511802987526699717162409282876065556519849603157850853034644815111221599509216528920420940314 |
|||
906089587987695346534516804650290637694024830011956365184327674619752094289696314882008531991840922336528920420940314 |
|||
16695570072624210767034167688394623360733515163575864136345910335924039962404869510225723072235842668787507993136908442336528920420940314 |
|||
942786239765826579160595268206839381354754349601050974345395410407078230249590414458830117442618180732911203520208889371641659121356556442336528920420940314 |
|||
145722981061585297004706728001906071948635199234860720988658042536179281328615541936083296163475394237524337422204397431927131629058103519228197429698252556442336528920420940314 |
|||
Digits in 1,000th through 10,000th by thousands: |
|||
2565 5733 9128 12670 16322 20062 23875 27749 31678 35656</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |