September Morn Update

Task/Integer-sequence/Visual-Basic-.NET/integer-sequence-2.visual

@@ -0,0 +1,45 @@
+Imports System.Console
+
+Module Module1
+
+    Dim base, b1 As Long, digits As Integer, sf As String, st As DateTime,
+        ar As List(Of Long) = {0L}.ToList, c As Integer = ar.Count - 1
+
+    Sub Increment(n As Integer)
+        If ar(n) < b1 Then
+            ar(n) += 1
+        Else
+            ar(n) = 0 : If n > 0 Then
+                Increment(n - 1)
+            Else
+                Try
+                    ar.Insert(0, 1L) : c += 1
+                Catch ex As Exception
+                    WriteLine("Failure when trying to increase beyond {0} digits", CDbl(c) * digits)
+                    TimeStamp("error")
+                    Stop
+                End Try
+            End If
+        End If
+    End Sub
+
+    Sub TimeStamp(cause As String)
+        With DateTime.Now - st
+            WriteLine("Terminated by {5} at {0} days, {1} hours, {2} minutes, {3}.{4} seconds",
+                      .Days, .Hours, .Minutes, .Seconds, .Milliseconds, cause)
+        End With
+    End Sub
+
+    Sub Main(args As String())
+        digits = Long.MaxValue.ToString.Length - 1
+        base = CLng(Math.Pow(10, digits)) : b1 = base - 1
+        base = 10 : b1 = 9
+        sf = "{" & base.ToString.Replace("1", "0:") & "}"
+        st = DateTime.Now
+        While Not KeyAvailable
+            Increment(c) : Write(ar.First)
+            For Each item In ar.Skip(1) : Write(sf, item) : Next : WriteLine()
+        End While
+        TimeStamp("keypress")
+    End Sub
+End Module