Catalan numbers/Pascal's triangle: Difference between revisions
Content added Content deleted
(+ D entry) |
(→{{header|REXX}}: added the REXX language. -- ~~~~) |
||
Line 76:
1767263190
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}}==
<lang runbasic>n = 15
| |||