Data update

Task/Sierpinski-triangle/AWK/sierpinski-triangle-2.awk

@@ -0,0 +1,9 @@
+# awk -f sierpinski.awk -v n=4 (n being arbitrary height of triangle)
+BEGIN{
+  n=n?2^n-1:15                                  # default to height 4
+  for(i=n;i>=0;i--){                            # height of triangle
+    for(k=i;k;k--)printf" "                     # spaces preceding triangle
+    for(j=0;j<=n;j++)printf and(i,j)?"  ":"* "  # bitwise if space or *
+    print                                       # newline
+  }
+}

Task/Sierpinski-triangle/FutureBasic/sierpinski-triangle.basic

@@ -0,0 +1,21 @@
+local fn Sierpinski( x as long, y as long, n as long )
+  long length
+
+  if n == 0
+    text @"Menlo", 6.0, fn ColorRed, fn ColorYellow
+    print %( x, y ) "*";
+  else
+    n = n - 1
+    length = fn pow( 2, n )
+    fn Sierpinski( x,              y + length, n )
+    fn Sierpinski( x + length,     y,          n )
+    fn Sierpinski( x + length * 2, y + length, n )
+  end if
+end fn
+
+window 1, @"Sierpinski Triangle — Order 8", ( 0, 0, 516, 310 )
+WindowSetBackgroundColor( 1, fn ColorBlack )
+
+fn Sierpinski( 1, 1, 8 )
+
+HandleEvents

Task/Sierpinski-triangle/Refal/sierpinski-triangle.refal

@@ -0,0 +1,43 @@
+$ENTRY Go {
+    = <Sierp 4>;
+};
+
+Sierp {
+    s.N, <Rep <- <Pow2 s.N> 1> ' '>: e.F =
+        <Sierp1 e.F '*' e.F>;
+};
+
+Pow2 {
+    0   = 1;
+    s.N = <* 2 <Pow2 <- s.N 1>>>;
+};
+
+Rep {
+    0   s.C = ;
+    s.N s.C = s.C <Rep <- s.N 1> s.C>;
+};
+
+Sierp1 {
+    e.X, e.X: s.C e.Y, s.C: {
+        '*' = <Prout e.X>;
+        ' ' = <Prout e.X> <Sierp1 <Sierp2 e.X>>;
+    };
+};
+
+Sierp2 {
+    e.X = <Sierp3 ' ' e.X ' '>;
+};
+
+Sierp3 {
+    e.X, e.X: s.C e.R, e.X: {
+        '   ' e.Z = ' ' <Sierp3 e.R>;
+        '  *' e.Z = '*' <Sierp3 e.R>;
+        ' * ' e.Z = ' ' <Sierp3 e.R>;
+        ' **' e.Z = '*' <Sierp3 e.R>;
+        '*  ' e.Z = '*' <Sierp3 e.R>;
+        '* *' e.Z = ' ' <Sierp3 e.R>;
+        '** ' e.Z = '*' <Sierp3 e.R>;
+        '***' e.Z = ' ' <Sierp3 e.R>;
+        e.Z = ;
+    };
+};