June 2018 Update

Task/Pascals-triangle/Stata/pascals-triangle-1.stata

@@ -0,0 +1,26 @@
+function pascal1(n) {
+	return(comb(J(1,n,0::n-1),J(n,1,0..n-1)))
+}
+
+function pascal2(n) {
+	a = I(n)
+	a[.,1] = J(n,1,1)
+	for (i=3; i<=n; i++) {
+		a[i,2..i-1] = a[i-1,2..i-1]+a[i-1,1..i-2]
+	}
+	return(a)
+}
+
+function pascal3(n) {
+	a = J(n,n,0)
+	for (i=1; i<n; i++) {
+		a[i+1,i] = i
+	}
+	s = p = I(n)
+	k = 1
+	for (i=0; i<n; i++) {
+		p = p*a/k++
+		s = s+p
+	}
+	return(s)
+}

Task/Pascals-triangle/Stata/pascals-triangle-2.stata

@@ -0,0 +1,16 @@
+function print_pascal_triangle(n) {
+	a = pascal1(n)
+	for (i=1; i<=n; i++) {
+		for (j=1; j<=i; j++) {
+			printf("%10.0f",a[i,j])
+		}
+		printf("\n")
+	}
+}
+
+print_pascal_triangle(5)
+         1
+         1         1
+         1         2         1
+         1         3         3         1
+         1         4         6         4         1