September Morn Update

Task/Sierpinski-triangle/BASIC/sierpinski-triangle-2.basic

@@ -0,0 +1,17 @@
+      MODE 8
+      OFF
+
+      order% = 5
+      PROCsierpinski(0, 0, 2^(order%-1))
+      REPEAT UNTIL GET
+      END
+
+      DEF PROCsierpinski(x%, y%, l%)
+      IF l% = 0 THEN
+        PRINT TAB(x%,y%) "*";
+      ELSE
+        PROCsierpinski(x%, y%+l%, l% DIV 2)
+        PROCsierpinski(x%+l%, y%, l% DIV 2)
+        PROCsierpinski(x%+l%+l%, y%+l%, l% DIV 2)
+      ENDIF
+      ENDPROC

Task/Sierpinski-triangle/BASIC/sierpinski-triangle-3.basic

@@ -0,0 +1,12 @@
+100 PROGRAM "Triangle.bas"
+110 TEXT 40
+120 CALL TRIANGLE(1,1,8)
+130 DEF TRIANGLE(X,Y,L)
+140   IF L=0 THEN
+150     PRINT AT Y,X:"*"
+160   ELSE
+170     CALL TRIANGLE(X,Y+L,INT(L/2))
+180     CALL TRIANGLE(X+L,Y,INT(L/2))
+190     CALL TRIANGLE(X+2*L,Y+L,INT(L/2))
+200   END IF
+210 END DEF

Task/Sierpinski-triangle/Python/sierpinski-triangle-3.py

@@ -1,4 +1,22 @@
-x = 1
-while True:
-	print(bin(x)[2:].replace('0', ' '))
-	x ^= x<<1
+from functools import (reduce)
+from operator import (add)
+
+
+# sierpinski :: Int -> String
+def sierpinski(n):
+    def go(xs, i):
+        s = ' ' * (2 ** i)
+        return concatMap(lambda x: [s + x + s])(xs) + (
+            concatMap(lambda x: [x + ' ' + x])(xs)
+        )
+    return '\n'.join(reduce(go, range(n), '*'))
+
+
+# concatMap :: (a -> [b]) -> [a] -> [b]
+def concatMap(f):
+    return lambda xs: (
+        reduce(add, map(f, xs), [])
+    )
+
+
+print(sierpinski(4))

Task/Sierpinski-triangle/Python/sierpinski-triangle-4.py

@@ -0,0 +1,4 @@
+x = 1
+while True:
+	print(bin(x)[2:].replace('0', ' '))
+	x ^= x<<1

Task/Sierpinski-triangle/VBA/sierpinski-triangle.vba

@@ -0,0 +1,16 @@
+Sub sierpinski(n As Integer)
+    Dim lim As Integer: lim = 2 ^ n - 1
+    For y = lim To 0 Step -1
+        Debug.Print String$(y, " ")
+        For x = 0 To lim - y
+            Debug.Print IIf(x And y, "  ", "# ");
+        Next
+        Debug.Print
+    Next y
+End Sub
+Public Sub main()
+    Dim i As Integer
+    For i = 1 To 5
+        sierpinski i
+    Next i
+End Sub