June 2018 Update

Task/Conditional-structures/Stata/conditional-structures-1.stata

@@ -0,0 +1,11 @@
+clear
+set obs 4
+gen a = cond(mod(_n, 2)==1, "A", "B")
+list, noobs noheader
+
+  +---+
+  | A |
+  | B |
+  | A |
+  | B |
+  +---+

Task/Conditional-structures/Stata/conditional-structures-2.stata

@@ -0,0 +1,34 @@
+program isprime
+	sca n = `0'
+	sca p = 1
+	if n<5 {
+		if n!=2 & n!=3 {
+			sca p = 0
+		}
+	}
+	else {
+		if mod(n, 2)==0 {
+			sca p = 0
+		}
+		else {
+			sca k=3
+			while k*k<=n {
+				if mod(n, k)==0 {
+					sca p = 0
+					continue, break
+				}
+				sca k = k+2
+			}
+		}
+	}
+	
+	if p {
+		di "`n' is prime."
+	}
+	else {
+		di "`n' is not prime."
+	}
+end
+
+isprime `=10^12-11'
+999999999989 is prime.

Task/Conditional-structures/Stata/conditional-structures-3.stata

@@ -0,0 +1,6 @@
+clear
+set obs 100
+count
+  100
+count if mod(_n, 3)==0
+  33

Task/Conditional-structures/Stata/conditional-structures-4.stata

@@ -0,0 +1,13 @@
+function isprime(n) {
+	if (n<5) return(n==2 | n==3)
+	else if (mod(n, 2)==0) return(0)
+	else {
+		for (k=3; k*k<=n; k=k+2) {
+			if (mod(n, k)==0) return(0)
+		}
+		return(1)
+	}
+}
+
+isprime(10^12-11)
+  1

Task/Conditional-structures/Stata/conditional-structures-5.stata

@@ -0,0 +1,6 @@
+function fib(n) {
+	return(n<2 ? n : fib(n-1)+fib(n-2))
+}
+
+fib(10)
+  55