Catalan numbers/Pascal's triangle: Difference between revisions
Add VBScript
(→{{header|REXX}}: added a 2nd REXX version.) |
PatGarrett (talk | contribs) (Add VBScript) |
||
Line 451:
{{out}}
<pre>1, 2, 5, 14, 42, 132, 429, 1430, 4862, 16796, 58786, 208012, 742900, 2674440, 9694845</pre>
=={{header|VBScript}}==
To run in console mode with cscript.
<lang vbscript>dim t()
if Wscript.arguments.count=1 then
n=Wscript.arguments.item(0)
else
n=15
end if
redim t(n+1)
't(*)=0
t(1)=1
for i=1 to n
ip=i+1
for j = i to 1 step -1
t(j)=t(j)+t(j-1)
next 'j
t(i+1)=t(i)
for j = i+1 to 1 step -1
t(j)=t(j)+t(j-1)
next 'j
Wscript.echo t(i+1)-t(i)
next 'i</lang>
=={{header|Seed7}}==
| |||