Data commit

Task/Floyds-triangle/PureBasic/floyds-triangle.basic

@@ -0,0 +1,50 @@
+Procedure.i sumTo(n)
+  Protected r,i
+  For i=1 To n
+    r+i
+  Next
+  ProcedureReturn r.i
+EndProcedure
+
+; [1]
+; array rsA(n)... string-lengths of the numbers
+; in the bottom row
+
+; [2]
+; sumTo(i-1)+1    to     sumTo(i)
+           ; 11 12 13 14 15
+  ; here k is the column-index for array rsA(k)
+
+Procedure.s FloydsTriangle(n)
+  Protected r.s,s.s,t.s,i,j,k
+  ; [1]
+  Dim rsA(n)
+  i=0
+  For j=sumTo(n-1)+1 To sumTo(n)
+    i+1
+    rsA(i)=Len(Str(j))
+  Next
+  ; [2]
+  For i=1 To n
+    t.s="":k=0
+    For j=sumTo(i-1)+1 To sumTo(i)
+      k+1:t.s+RSet(Str(j),rsA(k)," ")+" "
+    Next
+    r.s+RTrim(t.s)+Chr(13)+Chr(10)
+  Next
+  r.s=Left(r.s,Len(r.s)-2)
+  ProcedureReturn r.s
+EndProcedure
+
+If OpenConsole()
+  n=5
+  r.s=FloydsTriangle(n)
+  PrintN(r.s)
+
+  n=14
+  r.s=FloydsTriangle(n)
+  PrintN(r.s)
+
+  Print(#crlf$ + #crlf$ + "Press ENTER to exit"): Input()
+  CloseConsole()
+EndIf