Welcome to collectivesolver - Programming & Software Q&A. A website you can trust. All programs tested and works. Contact: aviboots(AT)netvision.net.il
Web Hosting

Bonsai Boy of New York Bonsai Trees and Accessories

BlueHost Web Hosting

Liquid Web iThemes WordPress Hosting

Ecommerce Software - Best Ecommerce Platform Made for You - Free Trial

DreamHost Web Hosting


getResponse autofunnels

Liquid Web Cloud VPS Hosting

11,159 questions

15,235 answers

573 users

How to find the longest increasing not sorted subsequence (LIS) of a sequence of numbers in VB.NET

1 Answer

0 votes
Public Class Program 
    Public Shared Function not_sorted_lis(arr() As Integer, len As Integer) As Integer
        Dim total As Integer = 1  
           
        For i As Integer = 0 to len - 2
            If (arr(i) < arr(i + 1))
               total += 1
            End If
            Console.WriteLine("{0} {1} total = {2}", arr(i), arr(i + 1), total)
        Next  
         
        return total
    End Function
     
    Public Shared Sub Main()
        Dim arr() As Integer = { 4, 5, 1, 10, 7, 9, 18, 19 }
 
        Console.WriteLine("LIS length = {0}", not_sorted_lis(arr, arr.Length)) 
    End Sub
End Class



' run:

' 4 5 total = 2
' 5 1 total = 2
' 1 10 total = 3
' 10 7 total = 3
' 7 9 total = 4 
' 9 18 total = 5
' 18 19 total = 6
' LIS length = 6

 




answered Jun 8 by avibootz
...