Data commit

Task/Floyds-triangle/ERRE/floyds-triangle.erre

@@ -0,0 +1,20 @@
+PROGRAM FLOYD
+
+!
+! for rosettacode.org
+!
+
+BEGIN
+  N=14
+  NUM=1
+  LAST=(N^2-N+2) DIV 2
+  FOR ROW=1 TO N DO
+    FOR J=1 TO ROW DO
+       US$=STRING$(LEN(STR$(LAST-1+J))-1,"#")
+       WRITE(US$;NUM;)
+       PRINT(" ";)
+       NUM+=1
+    END FOR
+    PRINT
+  END FOR
+END PROGRAM