List.FindLastIndex Method (Generic Predicate)

'Declaration
Public Function FindLastIndex ( _
	match As Predicate(Of T) _
) As Integer
'Usage
Dim instance As List(Of T)
Dim match As Predicate(Of T)
Dim returnValue As Integer

returnValue = instance.FindLastIndex(match)

public int FindLastIndex (
	Predicate<T> match
)

public function FindLastIndex (
	match : Predicate<T>
) : int

Not applicable.

Imports System
Imports System.Collections.Generic

Public Class Example

    Public Shared Sub Main()

        Dim dinosaurs As New List(Of String)

        dinosaurs.Add("Compsognathus")
        dinosaurs.Add("Amargasaurus")
        dinosaurs.Add("Oviraptor")
        dinosaurs.Add("Velociraptor")
        dinosaurs.Add("Deinonychus")
        dinosaurs.Add("Dilophosaurus")
        dinosaurs.Add("Gallimimus")
        dinosaurs.Add("Triceratops")

        Console.WriteLine()
        For Each dinosaur As String In dinosaurs
            Console.WriteLine(dinosaur)
        Next

        Console.WriteLine(vbLf & _
            "FindLastIndex(AddressOf EndsWithSaurus): {0}", _
            dinosaurs.FindLastIndex(AddressOf EndsWithSaurus))

        Console.WriteLine(vbLf & _
            "FindLastIndex(4, AddressOf EndsWithSaurus): {0}", _
            dinosaurs.FindLastIndex(4, AddressOf EndsWithSaurus))

        Console.WriteLine(vbLf & _
            "FindLastIndex(4, 3, AddressOf EndsWithSaurus): {0}", _
            dinosaurs.FindLastIndex(4, 3, AddressOf EndsWithSaurus))

    End Sub

    ' Search predicate returns true if a string ends in "saurus".
    Private Shared Function EndsWithSaurus(ByVal s As String) _
        As Boolean

        ' AndAlso prevents evaluation of the second Boolean
        ' expression if the string is so short that an error
        ' would occur.
        If (s.Length > 5) AndAlso _
            (s.Substring(s.Length - 6).ToLower() = "saurus") Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

' This code example produces the following output:
'
'Compsognathus
'Amargasaurus
'Oviraptor
'Velociraptor
'Deinonychus
'Dilophosaurus
'Gallimimus
'Triceratops
'
'FindLastIndex(AddressOf EndsWithSaurus): 5
'
'FindLastIndex(4, AddressOf EndsWithSaurus): 1
'
'FindLastIndex(4, 3, AddressOf EndsWithSaurus): -1