Data update

Task/Floyds-triangle/Draco/floyds-triangle.draco

@@ -0,0 +1,28 @@
+proc width(word n) word:
+    word w;
+    w := 0;
+    while n>0 do
+        w := w + 1;
+        n := n / 10
+    od;
+    w
+corp
+
+proc floyd(word rows) void:
+    word n, row, col, maxno;
+    maxno := rows * (rows+1)/2;
+    n := 1;
+    for row from 1 upto rows do
+        for col from 1 upto row do
+            write(n : 1+width(maxno - rows + col));
+            n := n+1
+        od;
+        writeln()
+    od
+corp
+
+proc main() void:
+    floyd(5);
+    writeln();
+    floyd(14)
+corp