Catalan numbers/Pascal's triangle: Difference between revisions
Content added Content deleted
(+ D entry) |
(→{{header|REXX}}: added the REXX language. -- ~~~~) |
||
Line 76: | Line 76: | ||
1767263190 |
1767263190 |
||
6564120420</pre> |
6564120420</pre> |
||
=={{header|REXX}}== |
|||
<lang rexx>/*REXX program obtains Catalan numbers from Pascal's triangle. */ |
|||
numeric digits 200 /*might have large Catalan nums. */ |
|||
parse arg N .; if N=='' then N=15 /*Any args? No, then use default*/ |
|||
@.=0; @.1=1 /*stem array default, 1st value. */ |
|||
do i=1 for N; ip=i+1 |
|||
do j=i by -1 for N; jm=j-1; @.j=@.j+@.jm; end /*j* |
|||
@.ip=@.i; do k=ip by -1 for N; km=k-1; @.k=@.k+@.km; end /*k* |
|||
say @.ip-@.i |
|||
end /*i* |
|||
/*stick a fork in it, we're done.*/</lang> |
|||
'''output''' when using the default input: |
|||
<pre style="overflow:scroll"> |
|||
1 |
|||
2 |
|||
5 |
|||
14 |
|||
42 |
|||
132 |
|||
429 |
|||
1430 |
|||
4862 |
|||
16796 |
|||
58786 |
|||
208012 |
|||
742900 |
|||
2674440 |
|||
9694845 |
|||
</pre> |
|||
=={{header|Run BASIC}}== |
=={{header|Run BASIC}}== |
||
<lang runbasic>n = 15 |
<lang runbasic>n = 15 |