Data commit

Task/Floyds-triangle/Icon/floyds-triangle.icon

@@ -0,0 +1,12 @@
+procedure main(a)
+    n := integer(a[1]) | 5
+    w := ((n*(n-1))/2)-n
+    c := create seq()
+    every row := 1 to n do {
+        every col := 1 to row do {
+            width := *(w+col)+1
+            every writes(right(@c,width))
+            }
+        write()
+        }
+end