Data commit

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

@@ -0,0 +1,23 @@
+# WST.AWK - Waclaw Sierpinski's triangle contributed by Dan Nielsen
+# syntax: GAWK -f WST.AWK [-v X=anychar] iterations
+# example: GAWK -f WST.AWK -v X=* 2
+BEGIN {
+    n = ARGV[1] + 0 # iterations
+    if (n !~ /^[0-9]+$/) { exit(1) }
+    if (n == 0) { width = 3 }
+    row = split("X,X X,X   X,X X X X",A,",") # seed the array
+    for (i=1; i<=n; i++) { # build triangle
+      width = length(A[row])
+      for (j=1; j<=row; j++) {
+        str = A[j]
+        A[j+row] = sprintf("%-*s %-*s",width,str,width,str)
+      }
+      row *= 2
+    }
+    for (j=1; j<=row; j++) { # print triangle
+      if (X != "") { gsub(/X/,substr(X,1,1),A[j]) }
+      sub(/ +$/,"",A[j])
+      printf("%*s%s\n",width-j+1,"",A[j])
+    }
+    exit(0)
+}