Data commit

Task/Floyds-triangle/VBA/floyds-triangle-1.vba

@@ -0,0 +1,24 @@
+Option Explicit
+Dim o As String
+Sub floyd(L As Integer)
+    Dim r, c, m, n As Integer
+    n = L * (L - 1) / 2
+    m = 1
+    For r = 1 To L
+        o = o & vbCrLf
+        For c = 1 To r
+            o = o & Space(Len(CStr(n + c)) - Len(CStr(m))) & m & " "
+            m = m + 1
+        Next
+    Next
+End Sub
+Sub triangle()
+    o = "5 lines"
+    Call floyd(5)
+    o = o & vbCrLf & "14 lines"
+    Call floyd(14)
+    With Selection
+        .Font.Name = "Courier New"
+        .TypeText Text:=o
+    End With
+End Sub

Task/Floyds-triangle/VBA/floyds-triangle-2.vba

@@ -0,0 +1,22 @@
+5 lines
+ 1
+ 2  3
+ 4  5  6
+ 7  8  9 10
+11 12 13 14 15
+
+14 lines
+ 1
+ 2  3
+ 4  5  6
+ 7  8  9 10
+11 12 13 14 15
+16 17 18 19 20 21
+22 23 24 25 26 27 28
+29 30 31 32 33 34 35 36
+37 38 39 40 41 42 43 44  45
+46 47 48 49 50 51 52 53  54  55
+56 57 58 59 60 61 62 63  64  65  66
+67 68 69 70 71 72 73 74  75  76  77  78
+79 80 81 82 83 84 85 86  87  88  89  90  91
+92 93 94 95 96 97 98 99 100 101 102 103 104 105