The Weird and The Wonderful

if ( ( (a==null) == false ) == true ) {...}

Luc Pattyn wrote:

if ( ( (a==null) == false ) == true ) {...}

if ( ( ( ( ( (a==null) == false) == true) == true) == true) == true)

if ( !( ( ( (a==null) == false ) == true ) == false)) {...}

if ( !( !( !( !(a==null) == true ) == false ) == true)) {...}

if ( true == (!((!(((a ?? true) is bool) ? true : false) == false) == true) == false)) {...}

Public Class Form1

    Private small As String = "a"
    Private large As String = "This was a really long string I shortened so I could paste it here easily..."
    Private Const MAX As Integer = 9999999
    Private startTime As DateTime
    Private endTime As DateTime
    Private smallDuration As Integer
    Private largeDuration As Integer
    Dim sb As System.Text.StringBuilder

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        sb = New System.Text.StringBuilder()
        GC.Collect()
        GC.WaitForPendingFinalizers()
        startTime = DateTime.Now
        For i As Integer = 0 To MAX
            sb.Append(FirstChar(large))
        Next
        endTime = DateTime.Now
        largeDuration = CInt(endTime.Subtract(startTime).TotalMilliseconds)


        sb = New System.Text.StringBuilder()
        GC.Collect()
        GC.WaitForPendingFinalizers()
        startTime = DateTime.Now
        For i As Integer = 0 To MAX
            sb.Append(FirstChar(small))
        Next
        endTime = DateTime.Now
        smallDuration = CInt(endTime.Subtract(startTime).TotalMilliseconds)


        MessageBox.Show(String.Format("Small: {0}, Large: {1}", smallDuration.ToString(), largeDuration.ToString()))

    End Sub

    ' TODO: Try ByRef and ByVal, and compare them.
    Private Function FirstChar(ByRef str As String) As String
        Return str.Substring(0, 1)
    End Function

End Class