petterek

Public Class Transformers

        Public Shared Function OptimusPrime(Of T, TT As {New})(incol As IEnumerable(Of T), comp As Comparer(Of T, TT), action As Action(Of TT, T)) As IEnumerable(Of TT)

            Dim ret As New List(Of TT)

            For Each p In incol
                Dim curP = p
                Dim cur = ret.Find(Function(o) comp(curP, o))
                If cur Is Nothing Then