June 2018 Update

Task/Sierpinski-triangle/Julia/sierpinski-triangle.julia

@@ -1,13 +1,18 @@
-pprint(matrix) = for i = 1:size(matrix,1) println(join(matrix[i,:])) end
-spaces(m,n) = [" " for i=1:m, j=1:n]
-
-function sierpinski(n)
-  x = ["*" for i=1:1, j=1:1]
-  for i = 1:n
-    h,w = size(x)
-    s = spaces(h,(w+1)/2)
-    t = spaces(h,1)
-    x = [[s x s] ; [x t x]]
-  end
-  x
+function sierpinski(n, token::AbstractString="*")
+	x = fill(token, 1, 1)
+	for _ in 1:n
+		h, w = size(x)
+		s = fill(" ", h,(w + 1) ÷ 2)
+		t = fill(" ", h,1)
+		x = [[s x s] ; [x t x]]
+	end
+	return x
 end
+
+function printsierpinski(m::Matrix)
+    for r in 1:size(m, 1)
+        println(join(m[r, :]))
+    end
+end
+
+sierpinski(4) |> printsierpinski

Task/Sierpinski-triangle/MATLAB/sierpinski-triangle-3.m

@@ -0,0 +1 @@
+spy(mod(abs(pascal(32,1)),2)==1)