Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 deletions
--- a/Task/Catalan-numbers-Pascals-triangle/VBScript/catalan-numbers-pascals-triangle.vb
+++ b/Task/Catalan-numbers-Pascals-triangle/VBScript/catalan-numbers-pascals-triangle.vb
@ -0,0 +1,20 @@
+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