Data update

Task/Floyds-triangle/ABC/floyds-triangle.abc

@@ -0,0 +1,18 @@
+HOW TO RETURN width n:
+    SELECT:
+        n<10: RETURN 1
+        ELSE: RETURN 1 + width floor (n/10)
+
+HOW TO DISPLAY A FLOYD TRIANGLE WITH lines LINES:
+    PUT lines * (lines+1)/2 IN maxno
+    PUT 1 IN n
+    FOR line IN {1..lines}:
+        FOR col IN {1..line}:
+            WRITE n >> (1 + width (maxno - lines + col))
+            PUT n+1 IN n
+        WRITE /
+
+DISPLAY A FLOYD TRIANGLE WITH 5 LINES
+WRITE /
+DISPLAY A FLOYD TRIANGLE WITH 14 LINES
+WRITE /